1      SUBROUTINE stpr_locate(INPUT,TOKEN,IERROR)
2c $Id$
3C     ----- SEARCH THROUGH INPUT FILE FOR TOKEN TO LOCATE INPUT FOR
4C           PROGRAM.  IERROR IS SET TO 0 IF NO ERRORS, 1 IF ANY ERROR
5C           OCCURS.
6C
7      CHARACTER*10 TOKEN,TOKEN1,LINE
8      TOKEN1=TOKEN
9      CALL stpr_uprcase (TOKEN1)
10      REWIND (UNIT=INPUT,ERR=99)
11    1 CONTINUE
12        READ (UNIT=INPUT,FMT='(A10)',END=99,ERR=99) LINE
13        CALL stpr_uprcase (LINE)
14      IF (LINE.NE.TOKEN1) GOTO 1
15      IERROR=0
16      RETURN
17   99 CONTINUE
18      IERROR=1
19      RETURN
20      END
21