Juan 12/08/2020: modi_bitrep.f90,for ifort18 , add intent(in) on pure functions

src/LIB/BITREP/modi_bitrep.f90

 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
 !