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