C
C EXAMPLE JOB TO READ THE FILE OF PSMSL RLR ANNUAL MEANS.
C FOR A DESCRIPTION OF EACH VARIABLE, SEE 'rlrannrd.hel'.
C
      CHARACTER SNAME*40,SLAT*8,SLON*8,ACODE*2,FCODE*2,TEXT*80
      CHARACTER FILEIN*80
      CHARACTER*3 CCODE,SCODE,GLOSS
      DIMENSION IYEAR(1000),MYEAR(1000)
C
C OPEN THE FILE - THIS OPEN STATEMENT MAY BE SYSTEM DEPENDENT
C
      WRITE(6,*)
      WRITE(6,*) 'ENTER INPUT FILE NAME'
      READ(5,906) FILEIN
  906 FORMAT(A)
      OPEN(1,FILE=FILEIN,STATUS='OLD',FORM='FORMATTED',IOSTAT=IST)
      IF(IST.NE.0) WRITE(6,*) ' ERROR FILE1: IST =',IST
      IF(IST.NE.0) STOP
      NNYEAR=0
C
    1 CONTINUE
      READ(1,901,END=9) SNAME,CCODE,SCODE,SLAT,SLON,ACODE,FCODE,IYRLR,
     & GLOSS
  901 FORMAT(A40,2A3,2A8,2A2,I4,A3,7X)
      READ(1,1901) NYEAR,NCOMS,NCOMC,NCOMA
 1901 FORMAT(4I3,68X)
      READ(1,902) (IYEAR(I),MYEAR(I),I=1,NYEAR)
  902 FORMAT(20I4)
      NNYEAR=NNYEAR+NYEAR
      IF(NCOMS.EQ.0) GOTO 2
      DO 21 I=1,NCOMS
      READ(1,903) TEXT
  903 FORMAT(A80)
   21 CONTINUE
    2 IF(NCOMC.EQ.0) GOTO 3
      DO 31 I=1,NCOMC
      READ(1,903) TEXT
   31 CONTINUE
    3 IF(NCOMA.EQ.0) GOTO 4
      DO 41 I=1,NCOMA
      READ(1,903) TEXT
   41 CONTINUE
    4 CONTINUE
      GOTO 1
    9 WRITE(6,*) ' END OF FILE: NNYEAR = ',NNYEAR
      CLOSE (1)
      STOP
      END