New changes from l2g

w

dataassim/math/othersupmath/charlineparser.f

@@ -15,7 +15,8 @@
 !   separating characters in a single line. When both commas and blank spaces appear in the line, comma is 
 !   the saparating character and blank spaces are repalced with '_'
       integer nmax,n
-      character longchar*(*),charvars(nmax+100)*50
+      character(*)::longchar
+      character charvars(nmax+100)*50
       integer i,k,pos1,pos2,leng,posindex(0:nmax+100),itiscomma
 !
       leng=LEN_TRIM(longchar)
@@ -35,6 +36,10 @@
       do i=1,leng
         if(ichar(longchar(i:i)).eq.44)itiscomma=itiscomma+1
       enddo
+      if(itiscomma.ge.nmax)then
+        n=0
+        return
+      endif
       if(itiscomma.gt.0)then
 !If the line contains at least one comma, it is assumed a comma separated line
         n=0