INTEGER i1, i2, i3, i4, i5
do i3=1,nr
+i1,',',i2,',',i3,',',i4,',',i5,') salt/theta ',
+xx_salt(i1,i2,i3,i4,i5)d,'/',xx_theta(i1,i2,i3,i4,i5)d
IF ( i3.EQ.0 .AND. i2.GE.1 ) i3 = i
& ' i0,nWd,comma =',i0,nWd,comma,' ; i1,i2,i3,i4 =',i1,i2,i3,i4
IF ( i3.NE.0 ) ii = i3
IF ( i3.NE.0 ) THEN
& 'remove: "',record(i2:i3-1),'"'
DO i=i2,i3-1
IF ( i3.EQ.0 .AND. nWd.NE.1 ) THEN
INTEGER i0, i1, i2, i3, i4
i3 = 0