1 subroutine scback(line,name,istat) 2 common /rdwr/ iun1,iun2,iun3,iun4,iun5 3 character*(*) line,name 4 character*137 caps 5 6 istat = 0 7 caps = name 8 len1 = len(name) 9 call tocap(caps,len1) 101 call bckfil 11 call nxtlin(line,jstat) 12 if (jstat.eq.1) goto 100 13 if (jstat.eq.2) goto 200 14 call bckfil 15 if (index(line,name).eq.0.and.index(line,caps(1:len1)).eq.0) 16 & go to 1 17c 18 istat=1 19 return 20100 call rewfil 21 return 22200 continue 23 return 24c 25c 26 end 27