C FORTRAN CODE TO READ THE PRC 65-STATION
C RECORD GAP FILE FROM CDIAC NDP-039/R1;
C
      INTEGER SEQNUM,STANUM
      CHARACTER*10 STNAME
      CHARACTER*51 GAPS 
C           
    1 CONTINUE 
      OPEN (UNIT=1, FILE='sta65.gap')
      READ(1,100,END=99)SEQNUM,STNAME,STANUM,GAPS 
100   FORMAT(I2,1X,A10,5X,I5,2X,A51) 
C                
      GO TO 1  
   99 CONTINUE 
      STOP
      END