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

Fix inconsistency in %csget

Browse Source
This commit is contained in:
Salvatore Filippone
2021-06-17 10:45:31 -04:00
parent da7d49b4db
commit a673bf8bf1
8 changed files with 40 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_mat_impl.F90
+8 -5
View File
@@ -820,7 +820,8 @@ subroutine psb_c_csgetptn(imin,imax,a,nz,ia,ja,info,&
call a%a%csget(imin,imax,nz,ia,ja,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale)
& jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale)
if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act)
@@ -866,9 +867,10 @@ subroutine psb_c_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
goto 9999
endif
call a%a%csget(imin,imax,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale,chksz)
& jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale,chksz=chksz)
if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act)
@@ -929,8 +931,9 @@ subroutine psb_c_csgetblk(imin,imax,a,b,info,&
end if
if (info == psb_success_) then
call a%a%csget(imin,imax,acoo,info,&
& jmin,jmax,iren,append,rscale,cscale)
call a%a%csget(imin,imax,acoo,info,&
& jmin=jmin,jmax=jmax,iren=iren,append=append,&
& rscale=rscale,cscale=cscale)
else
info = psb_err_alloc_dealloc_
end if
base/serial/impl/psb_d_mat_impl.F90
+8 -5
View File
@@ -820,7 +820,8 @@ subroutine psb_d_csgetptn(imin,imax,a,nz,ia,ja,info,&
call a%a%csget(imin,imax,nz,ia,ja,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale)
& jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale)
if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act)
@@ -866,9 +867,10 @@ subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
goto 9999
endif
call a%a%csget(imin,imax,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale,chksz)
& jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale,chksz=chksz)
if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act)
@@ -929,8 +931,9 @@ subroutine psb_d_csgetblk(imin,imax,a,b,info,&
end if
if (info == psb_success_) then
call a%a%csget(imin,imax,acoo,info,&
& jmin,jmax,iren,append,rscale,cscale)
call a%a%csget(imin,imax,acoo,info,&
& jmin=jmin,jmax=jmax,iren=iren,append=append,&
& rscale=rscale,cscale=cscale)
else
info = psb_err_alloc_dealloc_
end if
base/serial/impl/psb_s_mat_impl.F90
+8 -5
View File
@@ -820,7 +820,8 @@ subroutine psb_s_csgetptn(imin,imax,a,nz,ia,ja,info,&
call a%a%csget(imin,imax,nz,ia,ja,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale)
& jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale)
if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act)
@@ -866,9 +867,10 @@ subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
goto 9999
endif
call a%a%csget(imin,imax,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale,chksz)
& jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale,chksz=chksz)
if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act)
@@ -929,8 +931,9 @@ subroutine psb_s_csgetblk(imin,imax,a,b,info,&
end if
if (info == psb_success_) then
call a%a%csget(imin,imax,acoo,info,&
& jmin,jmax,iren,append,rscale,cscale)
call a%a%csget(imin,imax,acoo,info,&
& jmin=jmin,jmax=jmax,iren=iren,append=append,&
& rscale=rscale,cscale=cscale)
else
info = psb_err_alloc_dealloc_
end if
base/serial/impl/psb_z_mat_impl.F90
+8 -5
View File
@@ -820,7 +820,8 @@ subroutine psb_z_csgetptn(imin,imax,a,nz,ia,ja,info,&
call a%a%csget(imin,imax,nz,ia,ja,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale)
& jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale)
if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act)
@@ -866,9 +867,10 @@ subroutine psb_z_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
goto 9999
endif
call a%a%csget(imin,imax,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale,chksz)
& jmin=jmin,jmax=jmax,iren=iren,append=append,nzin=nzin,&
& rscale=rscale,cscale=cscale,chksz=chksz)
if (info /= psb_success_) goto 9999
call psb_erractionrestore(err_act)
@@ -929,8 +931,9 @@ subroutine psb_z_csgetblk(imin,imax,a,b,info,&
end if
if (info == psb_success_) then
call a%a%csget(imin,imax,acoo,info,&
& jmin,jmax,iren,append,rscale,cscale)
call a%a%csget(imin,imax,acoo,info,&
& jmin=jmin,jmax=jmax,iren=iren,append=append,&
& rscale=rscale,cscale=cscale)
else
info = psb_err_alloc_dealloc_
end if