SUBROUTINE LSRCH(KEY,LIST,N,MATCH)
C This file: http://ftp.aset.psu.edu/pub/ger/fortran/hdk/lsrch.for
C
C=========LINEAR SEARCH FOR A KEY IN LIST OF LENGTH N SUCH THAT
C         KEY=LIST(MATCH), ELSE KEY=0.
      CHARACTER*(*) KEY,LIST(N)
      INTEGER MATCH
      DO 1 MATCH=1,N
      IF(KEY.EQ.LIST(MATCH))RETURN
1     CONTINUE
      MATCH=0
      RETURN
      END