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