--- trunk/libf/phylmd/clqh.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/clqh.f	2008/03/31 12:24:17	7
@@ -131,7 +131,7 @@
 c======================================================================
 c======================================================================
 c Rajout pour l'interface
-      integer itime
+      integer, intent(in):: itime
       integer nisurf
       logical, intent(in):: debut
       logical, intent(in):: lafin