C FORTRAN RETRIEVAL CODE TO READ AND PRINT THE PERCENTAGE OF
C POSSIBLE SUNSHINE FILE (FILE 12 ON THE MAGNETIC TAPE).
C
      INTEGER WBAN, YEAR, SUNPCT(12), MEAN
C
      CHARACTER FLAG1(12), FLAG2(12), FLAG3(12), FLAG4(12)
      CHARACTER*18 STNAME
C
C INITIALIZE A COUNTER FOR THE NUMBER OF RECORDS PRINTED.
      NREC = 0
C
      OPEN (UNIT=7,FILE='NDPPCTSUN.DAT',ACCESS='SEQUENTIAL',
     +     FORM='FORMATTED',STATUS='OLD')                                      
      OPEN (UNIT=8,FILE='FORT3.OUT',ACCESS='SEQUENTIAL',
     +     FORM='FORMATTED',STATUS='NEW')
C
C
    1 CONTINUE
      READ (5,100,END=99) WBAN, STNAME, YEAR,
     + (SUNPCT(I),FLAG1(I),FLAG2(I),FLAG3(I),FLAG4(I),I=1,12), MEAN
C
 100  FORMAT(1X,I5,1X,A18,1X,I4,12(I5,4(A1)),1X,I5)
C
C WRITE OUT A HEADER ON EACH PAGE OF THE LISTING.
      IF (MOD(NREC,28).EQ.0) WRITE(6,200)
C
      WRITE(6,201) WBAN, STNAME, YEAR,
     + (SUNPCT(I),FLAG1(I),FLAG2(I),FLAG3(I),FLAG4(I),I=1,12), MEAN
C
      NREC = NREC + 1
C
  200 FORMAT('1','WBAN  STATE AND STATION',/,2X,'YEAR    JAN',
     + '       FEB       MAR       APR       MAY       JUN',
     + '       JUL       AUG       SEP       OCT       NOV',
     + '       DEC     MEAN',/)
C
  201 FORMAT(1X,I5,1X,A18,/,2X,I4,12(1X,I5,4(A1)),1X,I5)
C
      GO TO 1
C
   99 CONTINUE
      STOP
      END