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
new-parstruct
Salvatore Filippone 6 years ago
parent 8bd2610b09
commit ba72faee7d
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

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

@ -1201,7 +1201,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
@ -1293,8 +1293,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

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

@ -1201,7 +1201,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
@ -1293,8 +1293,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

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

@ -1201,7 +1201,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
@ -1293,8 +1293,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

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

@ -1201,7 +1201,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
@ -1293,8 +1293,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