--- trunk/libf/phylmd/diagphy.f	2008/04/18 14:45:53	10
+++ trunk/libf/phylmd/diagphy.f	2011/01/06 17:52:19	38
@@ -46,8 +46,8 @@
 C 
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
       implicit none
 
 C
@@ -206,8 +206,8 @@
  
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
       IMPLICIT NONE
 C
 C