|
|
|
@ -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
|
|
|
|
|