--- trunk/phylmd/FCTTRE.f	2018/02/05 10:39:38	254
+++ trunk/phylmd/FCTTRE.f	2019/02/06 15:58:03	324
@@ -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