fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 11:52:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Salvatore Filippone
2019-01-19 14:55:12 +00:00
parent b9c8c91022
commit d3c6bfb5f1
4 changed files with 8 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_mat_impl.F90
+2 -7
View File
@@ -1112,9 +1112,6 @@ subroutine psb_c_b_csclip(a,b,info,&
end subroutine psb_c_b_csclip
subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl)
use psb_error_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 b%trim()
call b%asb()
call b%set_asb()
call psb_erractionrestore(err_act)
return
@@ -1208,8 +1205,6 @@ subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl)
end subroutine psb_c_cscnv
subroutine psb_c_cscnv_ip(a,info,type,mold,dupl)
use psb_error_mod
use psb_string_mod
@@ -1289,8 +1284,8 @@ subroutine psb_c_cscnv_ip(a,info,type,mold,dupl)
end if
call move_alloc(altmp,a%a)
call a%set_asb()
call a%trim()
call a%set_asb()
call psb_erractionrestore(err_act)
return
base/serial/impl/psb_d_mat_impl.F90
+2 -7
View File
@@ -1112,9 +1112,6 @@ subroutine psb_d_b_csclip(a,b,info,&
end subroutine psb_d_b_csclip
subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl)
use psb_error_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 b%trim()
call b%asb()
call b%set_asb()
call psb_erractionrestore(err_act)
return
@@ -1208,8 +1205,6 @@ subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl)
end subroutine psb_d_cscnv
subroutine psb_d_cscnv_ip(a,info,type,mold,dupl)
use psb_error_mod
use psb_string_mod
@@ -1289,8 +1284,8 @@ subroutine psb_d_cscnv_ip(a,info,type,mold,dupl)
end if
call move_alloc(altmp,a%a)
call a%set_asb()
call a%trim()
call a%set_asb()
call psb_erractionrestore(err_act)
return
base/serial/impl/psb_s_mat_impl.F90
+2 -7
View File
@@ -1112,9 +1112,6 @@ subroutine psb_s_b_csclip(a,b,info,&
end subroutine psb_s_b_csclip
subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl)
use psb_error_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 b%trim()
call b%asb()
call b%set_asb()
call psb_erractionrestore(err_act)
return
@@ -1208,8 +1205,6 @@ subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl)
end subroutine psb_s_cscnv
subroutine psb_s_cscnv_ip(a,info,type,mold,dupl)
use psb_error_mod
use psb_string_mod
@@ -1289,8 +1284,8 @@ subroutine psb_s_cscnv_ip(a,info,type,mold,dupl)
end if
call move_alloc(altmp,a%a)
call a%set_asb()
call a%trim()
call a%set_asb()
call psb_erractionrestore(err_act)
return
base/serial/impl/psb_z_mat_impl.F90
+2 -7
View File
@@ -1112,9 +1112,6 @@ subroutine psb_z_b_csclip(a,b,info,&
end subroutine psb_z_b_csclip
subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl)
use psb_error_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 b%trim()
call b%asb()
call b%set_asb()
call psb_erractionrestore(err_act)
return
@@ -1208,8 +1205,6 @@ subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl)
end subroutine psb_z_cscnv
subroutine psb_z_cscnv_ip(a,info,type,mold,dupl)
use psb_error_mod
use psb_string_mod
@@ -1289,8 +1284,8 @@ subroutine psb_z_cscnv_ip(a,info,type,mold,dupl)
end if
call move_alloc(altmp,a%a)
call a%set_asb()
call a%trim()
call a%set_asb()
call psb_erractionrestore(err_act)
return