c   element  description
c   0  year
C   1  month
C   2  day of month
C   3  Time in thousandths of day (.5 == 1200 UT)
C   4  Greenwich sunspot group # through 1976;
C      NOAA/USAF grp # after 1976,
C   5  Suffix to group number
C   6  Mt. Wilson magnetic class,
C   7  Greenwich grp type through 1976
C   8  Observed umbral area in millionths of solar disk
C   9  Observed whole spot area in mill. of sol. disk
C   10 Corrected umbral area in mill. of sol. hemisphere.
C      (See notes in NGDC document)
C   11 Corrected whole spot area in mill. of sol. hem.
C   12 Distance from center of sol. disk is disk radii
C   13 Polar angle (0<=n<=360)
C   14 Carrington Longitude
C   15 Latitude, neg to the South
C   16 Central  meridian distance, neg to the East.
C
      REAL*4 ODATA(17)
C
      READ(1,1001,END=999,ERR=998)IYR,IMN,ID,ODATA(4),IGNUM,ISUFG,
     &    IWCLSS,IGTYP,IUM1,ISP1,IUM2,ISP2,
     &    ODATA(13),ODATA(14),ODATA(15),ODATA(16),ODATA(17)
1001  FORMAT(I4,2I2,F4.3,I8,2I1,I2,4I5,F6.3,4F6.1)
      IDATA(1)=IYR
      IDATA(2)=IMN
      IDATA(3)=ID
      IDATA(5)=IGNUM
      IDATA(6)=ISUFG
      IDATA(7)=IWCLSS
      IDATA(8)=IGTYP
      IDATA(9)=IUM1
      IDATA(10)=ISP1
      IDATA(11)=IUM2
      IDATA(12)=ISP2