--- trunk/bibio/writehist.f	2014/03/05 14:57:53	82
+++ trunk/bibio/writehist.f	2014/03/06 15:12:00	83
@@ -34,7 +34,7 @@
 
     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