--- trunk/libf/phylmd/clqh.f90	2011/01/06 17:52:19	38
+++ trunk/libf/phylmd/clqh.f90	2011/01/25 15:11:05	39
@@ -25,7 +25,7 @@
   use iniprint
   use suphec_m, only: rcpd, rd, rg, rkappa
   use YOMCST
-  use yoethf
+  use yoethf_m
 
   IMPLICIT none