--- trunk/libf/bibio/writehist.f90	2013/02/18 16:33:12	69
+++ trunk/Sources/bibio/writehist.f	2015/04/29 15:47:56	134
@@ -34,14 +34,13 @@
 
     REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) 
     REAL teta(ip1jmp1, llm), phi(ip1jmp1, llm) 
-    REAL ps(ip1jmp1), masse(ip1jmp1, llm) 
+    REAL, intent(in):: ps(ip1jmp1), masse(ip1jmp1, llm) 
     REAL q(ip1jmp1, llm, nqmx)
     integer time
 
     ! This routine needs IOIPSL to work
     ! Variables locales
 
-    integer iq, ii, ll
     integer ndexu(ip1jmp1*llm), ndexv(ip1jm*llm), ndex2d(ip1jmp1)
     logical ok_sync
     integer itau_w