diff --git a/src/LIB/BITREP/modi_bitrep.f90 b/src/LIB/BITREP/modi_bitrep.f90
index c20d803c34d4003f0783c8582c66a3de20508dba..b24bfaa41eb94f425808be43dd56bdffb70e88cc 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
 !