Changed assumed size into assumed shape for internal

subroutines. Seems now not to be critical on Ix86, but was a real hit
on SP.
psblas3-type-indexed
Salvatore Filippone 18 years ago
parent 5422fda30d
commit 7200d63d2f

@ -129,8 +129,8 @@ contains
type(psb_dspmat_type) :: a,b
integer :: m,ma,mb,l1,l2,info
integer, dimension(*) :: lia1,lia2,uia1,uia2
real(kind(1.d0)), dimension(*) :: laspk,uaspk,d
integer, dimension(:) :: lia1,lia2,uia1,uia2
real(kind(1.d0)), dimension(:) :: laspk,uaspk,d
integer :: i,j,k,l,low1,low2,kk,jj,ll, irb, ktrw,err_act
real(kind(1.d0)) :: dia,temp

@ -125,8 +125,8 @@ contains
type(psb_zspmat_type) :: a,b
integer :: m,ma,mb,l1,l2,info
integer, dimension(*) :: lia1,lia2,uia1,uia2
complex(kind(1.d0)), dimension(*) :: laspk,uaspk,d
integer, dimension(:) :: lia1,lia2,uia1,uia2
complex(kind(1.d0)), dimension(:) :: laspk,uaspk,d
integer :: i,j,k,l,low1,low2,kk,jj,ll, irb, ktrw,err_act
complex(kind(1.d0)) :: dia,temp

Loading…
Cancel
Save