fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-20 04:42:10 +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 12:59:52 +00:00
parent e2e633c9b7
commit 0d15ce60a3
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mld_dilu_fct.f90
+2 -2
View File
@@ -136,8 +136,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
mld_zilu_fct.f90
+2 -2
View File
@@ -132,8 +132,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