diff --git a/prec/psb_dilu_fct.f90 b/prec/psb_dilu_fct.f90
index 975304bf..4dcbacf9 100644
--- a/prec/psb_dilu_fct.f90
+++ b/prec/psb_dilu_fct.f90
@@ -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
diff --git a/prec/psb_zilu_fct.f90 b/prec/psb_zilu_fct.f90
index ecd93fbd..403b17a4 100644
--- a/prec/psb_zilu_fct.f90
+++ b/prec/psb_zilu_fct.f90
@@ -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