--- trunk/bibio/initfluxsto.f	2014/09/04 10:05:52	104
+++ trunk/bibio/initfluxsto.f	2014/09/16 14:00:41	108
@@ -52,8 +52,8 @@
 
   !   Variables locales                                                   
   REAL zjulian
-  CHARACTER*3 str
-  CHARACTER*10 ctrac
+  CHARACTER(len=3) str
+  CHARACTER(len=10) ctrac
   INTEGER iq
   REAL rlong(iip1, jjp1), rlat(iip1, jjp1)
   INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid