--- trunk/libf/phylmd/undefSTD.f	2008/03/04 14:00:42	6
+++ trunk/libf/phylmd/undefSTD.f	2008/03/31 12:24:17	7
@@ -27,7 +27,8 @@
       integer jjmp1
       parameter (jjmp1=jjm+1-1/jjm)
 c variables Input
-      INTEGER nlevSTD, klevSTD, itap
+      INTEGER nlevSTD, klevSTD
+      integer, intent(in):: itap
       PARAMETER(klevSTD=17)
       INTEGER, intent(in):: ecrit_hf
 c