C FORTRAN RETRIEVAL CODE TO READ AND PRINT THE MAXIMUM POSSIBLE HOURS
C OF SUNSHINE FILE (FILE 11 ON THE MAGNETIC TAPE).
C
      INTEGER WBAN, MAXSUN(12)
      REAL TOTAL, ADJUST
      CHARACTER*18 STNAME
C
C INITIALIZE A COUNTER FOR THE NUMBER OF RECORDS OUTPUT.
      NREC = 0
C
    1 CONTINUE
      READ (5,100,END=99) WBAN, STNAME, (MAXSUN(I),I=1,12), TOTAL, 
     + ADJUST
C
  100 FORMAT(1X,I5,1X,A18,12(1X,I3),1X,F6.1,1X,F4.1)
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, STNAME, (MAXSUN(I),I=1,12), TOTAL, ADJUST 
C
      NREC = NREC + 1
C
  200 FORMAT('1',79X,'LEAPYR',/,1X,'WBAN  STATE AND STATION  JAN ',
     + 'FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC  TOTAL ADJ.',/)
C
      GO TO 1
   99 CONTINUE
      STOP
      END