diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/dblas.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/dblas.f90
index a8363fa2fe153344ab182da8f86ed4a0d587ddfd..b2f0df092eafac0f00ef945b4b980cfceb7b83bd 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/dblas.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/dblas.f90
@@ -6,7 +6,7 @@ subroutine dcopy(n,sx,incx,sy,incy)
 !     modified 12/3/93, array(1) declarations changed to array(*)
 !     modified  12/12/00 change name to avoid confusion with spline routine
 !
-      real sx(*),sy(*)
+      real sx(n),sy(n)
       integer i,incx,incy,ix,iy,m,mp1,n
 !
       if(n.le.0)return
@@ -81,7 +81,7 @@ SUBROUTINE DAXPY( N, SA, SX, INCX, SY, INCY )
 !                     = (-INCX)*N  IF INCX .LT. 0
 !            AND LY IS DEFINED IN A SIMILAR WAY USING INCY.
 
-	REAL SX(*), SY(*), SA
+	REAL SX(n), SY(n), SA
 
 
 	IF( N.LE.0 .OR. SA.EQ.0.0 ) RETURN