From b6e39d06bfaf9a06b4d7003ead565cecbada6441 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Tue, 15 Mar 2022 18:11:19 +0100
Subject: [PATCH] Juan 15/03/2022:tensor/dblas.f90, Pb Cray Openacc , doesnt
suport (*) in dim -> (n)
---
src/ZSOLVER/tensorproductmultigrid_Source/dblas.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/dblas.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/dblas.f90
index a8363fa2f..b2f0df092 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
--
GitLab