Juan 15/03/2022:tensor/dblas.f90, Pb Cray Openacc , doesnt suport (*) in dim -> (n)

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