--- trunk/phylmd/getso4fromfile.f	2014/09/04 10:05:52	104
+++ trunk/phylmd/getso4fromfile.f	2014/09/04 10:40:24	105
@@ -20,7 +20,7 @@
 
     CHARACTER(len=15) fname
 
-    CHARACTER*6 cvar
+    CHARACTER(len=6) cvar
     INTEGER START(3), COUNT(3)
     INTEGER  NCID, VARID
     INTEGER imth, i, j, k