Skip to content
Snippets Groups Projects
Commit c4d50f25 authored by Wautelet Philippe's avatar Wautelet Philippe
Browse files

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

parent 311f312a
No related branches found
No related tags found
1 merge request!4Jean Wurtz 30/04/2025 : Bugfixes mainly for TEB and for simple precision
......@@ -76,8 +76,8 @@ END FUNCTION
ELEMENTAL FUNCTION BR_POW(PVAL,PPOW)
!$acc routine seq
!
REAL, INTENT(IN) :: PVAL,PPOW
REAL :: BR_POW
REAL, VALUE, INTENT(IN) :: PVAL, PPOW
REAL, VALUE :: BR_POW
!
BR_POW = BR_EXP( PPOW * BR_LOG(PVAL) )
!
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment