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