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

Changed assumed size into assumed shape for internal

Browse Source 
subroutines. Seems now not to be critical on Ix86, but was a real hit
on SP.
This commit is contained in:
Salvatore Filippone
2007-05-31 13:00:08 +00:00
parent 5422fda30d
commit 7200d63d2f
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_dilu_fct.f90
+2 -2
View File
@@ -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
prec/psb_zilu_fct.f90
+2 -2
View File
@@ -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