--- trunk/libf/phylmd/phystokenc.f	2008/03/31 12:24:17	7
+++ trunk/libf/phylmd/phystokenc.f	2008/03/31 13:58:05	9
@@ -11,8 +11,6 @@
      I                   frac_impa,frac_nucl,
      I                   pphis,paire,dtime,itap)
       USE ioipsl
-      USE histcom
-
       use dimens_m
       use indicesol
       use dimphy