Philippe 12/10/2021: bitrep: dummy arguments of BR_POW are passed by value

c4d50f25 · Wautelet Philippe · 311f312a · c4d50f25
Commit c4d50f25 authored 3 years ago by Wautelet Philippe
--- a/src/LIB/BITREP/modi_bitrep.f90
+++ b/src/LIB/BITREP/modi_bitrep.f90
@@ -76,8 +76,8 @@ END FUNCTION
 ELEMENTAL FUNCTION BR_POW(PVAL,PPOW)
 !$acc routine seq
 !
-REAL, INTENT(IN) :: PVAL,PPOW
+REAL, VALUE, INTENT(IN) :: PVAL, PPOW
-REAL             :: BR_POW
+REAL, VALUE             :: BR_POW
 !
 BR_POW = BR_EXP( PPOW * BR_LOG(PVAL) )
 !