fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

In CSCNV we should call b%set_asb(), not b%asb()

Browse Source
scr-persistent-collective
Salvatore Filippone 6 years ago
parent b9c8c91022
commit d3c6bfb5f1
4 changed files with 8 additions and 28 deletions
Show Stats Download Patch File Download Diff File

9
base/serial/impl/psb_c_mat_impl.F90
Unescape Escape View File

@ -1112,9 +1112,6 @@ subroutine psb_c_b_csclip(a,b,info,&
end subroutine psb_c_b_csclip end subroutine psb_c_b_csclip
subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl) subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl)
use psb_error_mod use psb_error_mod
use psb_string_mod use psb_string_mod
@ -1197,7 +1194,7 @@ subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl)
call move_alloc(altmp,b%a) call move_alloc(altmp,b%a)
call b%trim() call b%trim()
call b%asb() call b%set_asb()
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
@ -1208,8 +1205,6 @@ subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl)
end subroutine psb_c_cscnv end subroutine psb_c_cscnv
subroutine psb_c_cscnv_ip(a,info,type,mold,dupl) subroutine psb_c_cscnv_ip(a,info,type,mold,dupl)
use psb_error_mod use psb_error_mod
use psb_string_mod use psb_string_mod
@ -1289,8 +1284,8 @@ subroutine psb_c_cscnv_ip(a,info,type,mold,dupl)
end if end if
call move_alloc(altmp,a%a) call move_alloc(altmp,a%a)
call a%set_asb()
call a%trim() call a%trim()
call a%set_asb()
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

9
base/serial/impl/psb_d_mat_impl.F90
Unescape Escape View File

@ -1112,9 +1112,6 @@ subroutine psb_d_b_csclip(a,b,info,&
end subroutine psb_d_b_csclip end subroutine psb_d_b_csclip
subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl) subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl)
use psb_error_mod use psb_error_mod
use psb_string_mod use psb_string_mod
@ -1197,7 +1194,7 @@ subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl)
call move_alloc(altmp,b%a) call move_alloc(altmp,b%a)
call b%trim() call b%trim()
call b%asb() call b%set_asb()
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
@ -1208,8 +1205,6 @@ subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl)
end subroutine psb_d_cscnv end subroutine psb_d_cscnv
subroutine psb_d_cscnv_ip(a,info,type,mold,dupl) subroutine psb_d_cscnv_ip(a,info,type,mold,dupl)
use psb_error_mod use psb_error_mod
use psb_string_mod use psb_string_mod
@ -1289,8 +1284,8 @@ subroutine psb_d_cscnv_ip(a,info,type,mold,dupl)
end if end if
call move_alloc(altmp,a%a) call move_alloc(altmp,a%a)
call a%set_asb()
call a%trim() call a%trim()
call a%set_asb()
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

9
base/serial/impl/psb_s_mat_impl.F90
Unescape Escape View File

@ -1112,9 +1112,6 @@ subroutine psb_s_b_csclip(a,b,info,&
end subroutine psb_s_b_csclip end subroutine psb_s_b_csclip
subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl) subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl)
use psb_error_mod use psb_error_mod
use psb_string_mod use psb_string_mod
@ -1197,7 +1194,7 @@ subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl)
call move_alloc(altmp,b%a) call move_alloc(altmp,b%a)
call b%trim() call b%trim()
call b%asb() call b%set_asb()
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
@ -1208,8 +1205,6 @@ subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl)
end subroutine psb_s_cscnv end subroutine psb_s_cscnv
subroutine psb_s_cscnv_ip(a,info,type,mold,dupl) subroutine psb_s_cscnv_ip(a,info,type,mold,dupl)
use psb_error_mod use psb_error_mod
use psb_string_mod use psb_string_mod
@ -1289,8 +1284,8 @@ subroutine psb_s_cscnv_ip(a,info,type,mold,dupl)
end if end if
call move_alloc(altmp,a%a) call move_alloc(altmp,a%a)
call a%set_asb()
call a%trim() call a%trim()
call a%set_asb()
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

9
base/serial/impl/psb_z_mat_impl.F90
Unescape Escape View File

@ -1112,9 +1112,6 @@ subroutine psb_z_b_csclip(a,b,info,&
end subroutine psb_z_b_csclip end subroutine psb_z_b_csclip
subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl) subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl)
use psb_error_mod use psb_error_mod
use psb_string_mod use psb_string_mod
@ -1197,7 +1194,7 @@ subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl)
call move_alloc(altmp,b%a) call move_alloc(altmp,b%a)
call b%trim() call b%trim()
call b%asb() call b%set_asb()
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
@ -1208,8 +1205,6 @@ subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl)
end subroutine psb_z_cscnv end subroutine psb_z_cscnv
subroutine psb_z_cscnv_ip(a,info,type,mold,dupl) subroutine psb_z_cscnv_ip(a,info,type,mold,dupl)
use psb_error_mod use psb_error_mod
use psb_string_mod use psb_string_mod
@ -1289,8 +1284,8 @@ subroutine psb_z_cscnv_ip(a,info,type,mold,dupl)
end if end if
call move_alloc(altmp,a%a) call move_alloc(altmp,a%a)
call a%set_asb()
call a%trim() call a%trim()
call a%set_asb()
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

Write Preview
Loading…
Cancel
Save