C FORTRAN RETRIEVAL CODE TO READ AND PRINT THE MEASURED HOURS OF
C SUNSHINE FILE (FILE 10 ON THE MAGNETIC TAPE).
C
      INTEGER WBAN, PWBAN, MON, YEAR, HRSSUN(12), TOTAL
      CHARACTER*18 STNAME
C
C INITIALIZE A COUNTER FOR THE NUMBER OF RECORDS OUTPUT.
C
      NREC = 0
C
    1 CONTINUE
      READ (5,100,END=99) WBAN, PWBAN, MON, STNAME, YEAR,
     + (HRSSUN(I),I=1,12), TOTAL
 100  FORMAT(2(1X,I5),1X,I2,2X,A18,2X,I4,12(2X,I3),3X,I4)
C
C WRITE OUT A HEADER ON EACH PAGE OF THE LISTING.
      IF (MOD(NREC,56).EQ.0) WRITE(6,200)
C
      WRITE(6,100) WBAN, PWBAN, MON, STNAME, YEAR, (HRSSUN(I),I=1,12),
     + TOTAL
C
      NREC = NREC + 1
C
  200 FORMAT('1','WBAN# PREV# MO  STATE AND STATION   YEAR  JAN  ',
     + 'FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC  ',
     + 'TOTAL',/)
C
      GO TO 1
C
   99 CONTINUE
      STOP
      END