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

Fix assembly procedure for remote build

Browse Source
This commit is contained in:
Salvatore Filippone
2022-02-06 18:34:43 +01:00
parent 0b19adab3c
commit 7d150e2eca
4 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_cspasb.f90
+1
View File
@@ -139,6 +139,7 @@ subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl, mold)
end block
end select
call a%set_ncols(desc_a%get_local_cols())
call a%cscnv(info,type=afmt,dupl=dupl, mold=mold)
else if (a%is_upd()) then
base/tools/psb_dspasb.f90
+1
View File
@@ -139,6 +139,7 @@ subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl, mold)
end block
end select
call a%set_ncols(desc_a%get_local_cols())
call a%cscnv(info,type=afmt,dupl=dupl, mold=mold)
else if (a%is_upd()) then
base/tools/psb_sspasb.f90
+1
View File
@@ -139,6 +139,7 @@ subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold)
end block
end select
call a%set_ncols(desc_a%get_local_cols())
call a%cscnv(info,type=afmt,dupl=dupl, mold=mold)
else if (a%is_upd()) then
base/tools/psb_zspasb.f90
+1
View File
@@ -139,6 +139,7 @@ subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl, mold)
end block
end select
call a%set_ncols(desc_a%get_local_cols())
call a%cscnv(info,type=afmt,dupl=dupl, mold=mold)
else if (a%is_upd()) then