--- trunk/phylmd/initphysto.f	2014/09/04 10:05:52	104
+++ trunk/phylmd/initphysto.f	2014/09/16 14:00:41	108
@@ -45,7 +45,7 @@
   IMPLICIT NONE
 
   !   Arguments
-  CHARACTER*(*) infile
+  CHARACTER(len=*) infile
   INTEGER nhoriid, i
   REAL, INTENT (IN) :: tstep
   REAL t_ops, t_wrt
@@ -57,8 +57,8 @@
 
   INTEGER tau0
   REAL zjulian
-  CHARACTER*3 str
-  CHARACTER*10 ctrac
+  CHARACTER(len=3) str
+  CHARACTER(len=10) ctrac
   INTEGER iq
   INTEGER uhoriid, vhoriid, thoriid, zvertiid
   INTEGER ii, jj