From 54a089d3f18f75520e80b23824edb12bf9fd491a Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Wed, 12 Aug 2020 12:16:09 +0200
Subject: [PATCH] Juan 12/08/2020: modi_bitrep.f90,for ifort18 , add
intent(in) on pure functions
---
src/LIB/BITREP/modi_bitrep.f90 | 17 +++++++++++------
1 file changed, 11 insertions(+), 6 deletions(-)
diff --git a/src/LIB/BITREP/modi_bitrep.f90 b/src/LIB/BITREP/modi_bitrep.f90
index c20d803c3..b24bfaa41 100644
--- a/src/LIB/BITREP/modi_bitrep.f90
+++ b/src/LIB/BITREP/modi_bitrep.f90
@@ -1,4 +1,9 @@
MODULE MODI_BITREP
+!
+! MODIFICATIONS
+! -------------
+! J.Escobar : 12/08/2020: for ifort18 , add intent(in) on pure function
+!-----------------------------------------------------------------
!
USE, INTRINSIC :: ISO_C_BINDING
!
@@ -16,8 +21,8 @@ INTERFACE
PURE FUNCTION BR_ATAN_C(PIN) BIND(C,NAME="br_atan")
!$acc routine seq
IMPORT C_DOUBLE
- REAL(KIND=C_DOUBLE) :: BR_ATAN_C
- REAL(KIND=C_DOUBLE),VALUE :: PIN
+ REAL(KIND=C_DOUBLE) :: BR_ATAN_C
+ REAL(KIND=C_DOUBLE),VALUE,INTENT(IN) :: PIN
END FUNCTION
END INTERFACE
!
@@ -36,8 +41,8 @@ INTERFACE
PURE FUNCTION BR_EXP_C(PIN) BIND(C,NAME="br_exp")
!$acc routine seq
IMPORT C_DOUBLE
- REAL(KIND=C_DOUBLE) :: BR_EXP_C
- REAL(KIND=C_DOUBLE),VALUE :: PIN
+ REAL(KIND=C_DOUBLE) :: BR_EXP_C
+ REAL(KIND=C_DOUBLE),VALUE,INTENT(IN) :: PIN
END FUNCTION
END INTERFACE
!
@@ -56,8 +61,8 @@ INTERFACE
PURE FUNCTION BR_LOG_C(PIN) BIND(C,NAME="br_log")
!$acc routine seq
IMPORT C_DOUBLE
- REAL(KIND=C_DOUBLE) :: BR_LOG_C
- REAL(KIND=C_DOUBLE),VALUE :: PIN
+ REAL(KIND=C_DOUBLE) :: BR_LOG_C
+ REAL(KIND=C_DOUBLE),VALUE,INTENT(IN) :: PIN
END FUNCTION
END INTERFACE
!
--
GitLab