--- trunk/Sources/phylmd/FCTTRE.f	2017/04/20 14:44:47	221
+++ trunk/phylmd/FCTTRE.f90	2019/06/13 14:40:06	328
@@ -32,7 +32,7 @@
 
   !******************************************
 
-  REAL function FOEDE(T, ICE, P5ARG, QS, PCOARG)
+  pure REAL function FOEDE(T, ICE, P5ARG, QS, PCOARG)
 
     use yoethf_m, only: R4LES, R4IES