From 0d15ce60a3df2f98fc26c645ed52d0b9a4b243e8 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 31 May 2007 12:59:52 +0000 Subject: [PATCH] Changed assumed size into assumed shape for internal subroutines. Seems now not to be critical on Ix86, but was a real hit on SP. --- mld_dilu_fct.f90 | 4 ++-- mld_zilu_fct.f90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mld_dilu_fct.f90 b/mld_dilu_fct.f90 index 354089e9..303f0b2d 100644 --- a/mld_dilu_fct.f90 +++ b/mld_dilu_fct.f90 @@ -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 diff --git a/mld_zilu_fct.f90 b/mld_zilu_fct.f90 index d6e1c083..468f284d 100644 --- a/mld_zilu_fct.f90 +++ b/mld_zilu_fct.f90 @@ -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