diff --git a/src/SURFEX/dgam.F90 b/src/SURFEX/dgam.F90
index 6b8d46b14a5ae6695556d91d88118f17086788c0..52addb0060ff4b0bccb530de1aa9dc36436b8e1c 100644
--- a/src/SURFEX/dgam.F90
+++ b/src/SURFEX/dgam.F90
@@ -497,7 +497,7 @@ IF ( PA<=ZALPHA ) THEN
     !
     ! 110 deb
     ZTEMP = DLGA(PA*1.)
-    ZU = DEXP(ZTEMP) - (PX**PA)/PA
+    ZU = EXP(ZTEMP) - (PX**PA)/PA
     ! 110 end
     !
   ENDIF
@@ -548,7 +548,7 @@ IF ( PA<=ZALPHA ) THEN
     !
     ZT = EXP(PX) * PX**(-PA)
     PG = ZT * PG
-    PGSTAR = 1. - PA * PG * DEXP(-ZALGP1) / ZT
+    PGSTAR = 1. - PA * PG * EXP(-ZALGP1) / ZT
     !
   ELSEIF (PA==0.) THEN
     !