C *** Fortran program to read the NDP-032 file "station_invent.txt"
C
      INTEGER STANUM LAT LON 
      CHARACTER NAME*22
C 
      OPEN (UNIT=1, FILE='station_invent.txt')
C
   10 READ (1,100,END=99) STANUM, LAT, LON, NAME
  100 FORMAT (I5,2X,I5,1X,I6,4X,A22)
C
      GO TO 10
   99 CLOSE (UNIT=1)
      STOP
      END