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

New (and better) names: extrow-> getrow, gtrow->gtblk.

Browse Source
This commit is contained in:
Salvatore Filippone
2006-06-16 14:35:25 +00:00
parent d59b891890
commit f8b86fb82d
21 changed files with 50 additions and 1406 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/prec/psb_dbldaggrmat.f90
+2 -2
View File
@@ -199,9 +199,9 @@ contains
jl = 0
do i=1,a%m,50
nlr = min(a%m-i+1,50)
call psb_spgtrow(i,a,b,info,append=.true.,iren=p%mlia,lrw=i+nlr-1)
call psb_spgtblk(i,a,b,info,append=.true.,iren=p%mlia,lrw=i+nlr-1)
if(info /= 0) then
call psb_errpush(4010,name,a_err='spgtrow')
call psb_errpush(4010,name,a_err='spgtblk')
goto 9999
end if
src/prec/psb_dilu_fct.f90
+5 -5
View File
@@ -177,7 +177,7 @@ contains
!
! Here we take a fast shortcut if possible, otherwise
! use spgtrow, slower but able (in principle) to handle
! use spgtblk, slower but able (in principle) to handle
! anything.
!
if (a%fida=='CSR') then
@@ -201,10 +201,10 @@ contains
if ((mod(i,nrb) == 1).or.(nrb==1)) then
irb = min(ma-i+1,nrb)
call psb_spgtrow(i,a,trw,info,lrw=i+irb-1)
call psb_spgtblk(i,a,trw,info,lrw=i+irb-1)
if(info.ne.0) then
info=4010
ch_err='psb_spgtrow'
ch_err='psb_spgtblk'
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
@@ -343,10 +343,10 @@ contains
if ((mod((i-ma),nrb) == 1).or.(nrb==1)) then
irb = min(m-i+1,nrb)
call psb_spgtrow(i-ma,b,trw,info,lrw=i-ma+irb-1)
call psb_spgtblk(i-ma,b,trw,info,lrw=i-ma+irb-1)
if(info.ne.0) then
info=4010
ch_err='psb_spgtrow'
ch_err='psb_spgtblk'
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
src/prec/psb_zbldaggrmat.f90
+2 -2
View File
@@ -199,9 +199,9 @@ contains
jl = 0
do i=1,a%m,50
nlr = min(a%m-i+1,50)
call psb_spgtrow(i,a,b,info,append=.true.,iren=p%mlia,lrw=i+nlr-1)
call psb_spgtblk(i,a,b,info,append=.true.,iren=p%mlia,lrw=i+nlr-1)
if(info /= 0) then
call psb_errpush(4010,name,a_err='spgtrow')
call psb_errpush(4010,name,a_err='spgtblk')
goto 9999
end if
src/prec/psb_zilu_fct.f90
+5 -5
View File
@@ -175,7 +175,7 @@ contains
!
! Here we take a fast shortcut if possible, otherwise
! use spgtrow, slower but able (in principle) to handle
! use spgtblk, slower but able (in principle) to handle
! anything.
!
if (a%fida=='CSR') then
@@ -199,10 +199,10 @@ contains
if ((mod(i,nrb) == 1).or.(nrb==1)) then
irb = min(ma-i+1,nrb)
call psb_spgtrow(i,a,trw,info,lrw=i+irb-1)
call psb_spgtblk(i,a,trw,info,lrw=i+irb-1)
if(info.ne.0) then
info=4010
ch_err='psb_spgtrow'
ch_err='psb_spgtblk'
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
@@ -341,10 +341,10 @@ contains
if ((mod((i-ma),nrb) == 1).or.(nrb==1)) then
irb = min(m-i+1,nrb)
call psb_spgtrow(i-ma,b,trw,info,lrw=i-ma+irb-1)
call psb_spgtblk(i-ma,b,trw,info,lrw=i-ma+irb-1)
if(info.ne.0) then
info=4010
ch_err='psb_spgtrow'
ch_err='psb_spgtblk'
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
src/prec/psb_zumf_bld.f90
+1
View File
@@ -52,6 +52,7 @@ subroutine psb_zumf_bld(a,desc_a,p,info)
character(len=5) :: fmt
character :: upd='F'
integer :: i,j,nza,nzb,nzt,ictxt, me,mycol,nprow,npcol,err_act
integer :: i_err(5)
logical, parameter :: debug=.false.
character(len=20) :: name, ch_err