--- trunk/libf/phylmd/cltrac.f	2008/04/18 14:45:53	10
+++ trunk/libf/phylmd/cltrac.f	2011/01/06 17:52:19	38
@@ -5,7 +5,7 @@
      s                  d_tr)
       use dimens_m
        use dimphy
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT none
 c======================================================================
 c Auteur(s): O. Boucher (LOA/LMD) date: 19961127