FORTRAN Generation
(/./ftp/cats/J/ApJS/183/225)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJS/183/225 into FORTRAN code for loading all data files into arrays.

Note that special values are assigned to unknown or unspecified numbers (also called NULL numbers); when necessary, the coordinate components making up the right ascension and declination are converted into floating-point numbers representing these angles in degrees.



      program load_ReadMe
C=============================================================================
C  F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2019-Dec-08
C=============================================================================
*  This code was generated from the ReadMe file documenting a catalogue
*  according to the "Standard for Documentation of Astronomical Catalogues"
*  currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
*  (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
*  Please report problems or questions to   
C=============================================================================

      implicit none
*  Unspecified or NULL values, generally corresponding to blank columns,
*  are assigned one of the following special values:
*     rNULL__    for unknown or NULL floating-point values
*     iNULL__    for unknown or NULL   integer      values
      real*4     rNULL__
      integer*4  iNULL__
      parameter  (rNULL__=--2147483648.)  	! NULL real number
      parameter  (iNULL__=(-2147483647-1))	! NULL int  number
      integer    idig			! testing NULL number

C=============================================================================
Cat. J/ApJS/183/225    A catalog of coronal "EIT wave" transients   (Thompson+, 2009)
*================================================================================
*A catalog of coronal "EIT wave" transients.
*    Thompson B.J., Myers D.C.
*   <Astrophys. J. Suppl. Ser., 183, 225-243 (2009)>
*   =2009ApJS..183..225T
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table3.dat'	! Full EIT wave catalog

      integer*4 nr__
      parameter (nr__=461)	! Number of records
      character*62 ar__   	! Full-size record

      integer*4     Seq        (nr__) ! [1-176] Event running number
      character*10  Date       (nr__) ! ("YYYY/MM/DD") Date of the first image showing the wave
*                                     front (1)
      integer*4     Qual       (nr__) ! [0,5] Quality rating, best is 5 (2)
      character*1   n_Qual     (nr__) ! [S] S means sharp waves
      integer*4     NSloc      (nr__) ! Apparent heliographic souce location N/S (3)
      integer*4     EWloc      (nr__) ! Apparent heliographic source location E/W (3)
      character*8   t_pre      (nr__) ! ("h:m:s") Pre-event image time
      character*8   t_ima      (nr__) ! ("h:m:s") Image time in which the wave is observed
      integer*4     Speed      (nr__) ! (km/s) ? Plane-of-Sky speed
      integer*4     SpeedP     (nr__) ! (km/s) ? Projected speed
      character*1   f_SpeedP   (nr__) ! [o] means "off limb" (4)
      character*2   Dir        (nr__) ! [NESW ] Direction of measurement (NESW)
      integer*4     Note       (nr__) ! ? Note on event, detailed in notes.dat
*Note (1): In cases where the pre-event image listed in the catalog occurs
*     prior to 00:00 UT and the first image occurs after 00:00 UT, the date
*     of the pre-event image is 1 day before the listed date.
*Note (2): Quality rating described (See section 2.3) as follows:
*  Q0 = Very low reliability; either a bright front with no clear evidence of
*       propagation, an extremely faint disturbance, or unusual structure. We
*       suspect that this category includes a number of weak waves as well as
*       non-related phenomena. <10% confidence level. (37 events from 176).
*  Q1 = Low reliability; either a faint bright front with structure which may
*       resemble those in the class 5 events, or some evidence of a propagating
*       brightening. 10-25% confidence level. (54 events)
*  Q2 = Low reliability; faint to strong bright front or a brightening which is
*       moving. 25-50% confidence level. (39 events)
*  Q3 = Intermediate reliability; Either multiple images of a propagating
*       brightening, or a clear observation of a bright front which is very
*       similar in structure to the class 5 waves. 50-75% confidence level.
*       (25 events).
*  Q4 = High reliability; Multiple images of a propagating brightening, spatial
*       correspondence from one image to the next, fairly high reliability.
*       Confidence level >75%. (16 events).
*  Q5 = Nearly definite reliability; Clear evidence of a propagating bright
*       front in multiple images, extent of the wave is far from other activity
*       such that the transient increase in emission is able to be distinguished
*       from other evolving features. 100% confidence level. (5 events)
*Note (3): Typically, the location listed is the heliographic latitude and
*     longitude of an associated flaring/erupting active region. In the
*     cases where the active region was part of an extended complex, the
*     source location was identified as the location within the complex. For
*     the cases when the wave did not appear to originate at an active
*     region, the source location listed is either an evolving solar feature
*     or an apparently central origination point. A source longitude of 90
*     or -90 indicates that the apparent source of the wave was either at,
*     above, or possibly behind the solar limb.
*Note (4): "off limb" = wave fronts were measured above the limb of the Sun,
*     in which case the Plane-of-Sky speed is a more accurate representation
*     of the wave speed.

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'notes.dat'	! Notes in table3

      integer*4 nr__1
      parameter (nr__1=16)	! Number of records
      character*76 ar__1  	! Full-size record

      integer*4     Note_1     (nr__1) ! Note number
      character*72  Text       (nr__1) ! Text of note

C=============================================================================

C  Loading file 'table3.dat'	! Full EIT wave catalog

C  Format for file interpretation

    1 format(
     +  I3,1X,A10,2X,I1,1X,A1,1X,I3,1X,I3,1X,A8,1X,A8,1X,I3,1X,I3,1X,
     +  A1,1X,A2,1X,I3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,461
        read(1,'(A62)')ar__
        read(ar__,1)
     +  Seq(i__),Date(i__),Qual(i__),n_Qual(i__),NSloc(i__),
     +  EWloc(i__),t_pre(i__),t_ima(i__),Speed(i__),SpeedP(i__),
     +  f_SpeedP(i__),Dir(i__),Note(i__)
        if(ar__(47:49) .EQ. '') Speed(i__) = iNULL__
        if(ar__(51:53) .EQ. '') SpeedP(i__) = iNULL__
        if(ar__(60:62) .EQ. '') Note(i__) = iNULL__
c    ..............Just test output...........
        write(6,1)
     +  Seq(i__),Date(i__),Qual(i__),n_Qual(i__),NSloc(i__),
     +  EWloc(i__),t_pre(i__),t_ima(i__),Speed(i__),SpeedP(i__),
     +  f_SpeedP(i__),Dir(i__),Note(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'notes.dat'	! Notes in table3

C  Format for file interpretation

    2 format(I3,1X,A72)

C  Effective file loading

      open(unit=1,status='old',file=
     +'notes.dat')
      write(6,*) '....Loading file: notes.dat'
      do i__=1,16
        read(1,'(A76)')ar__1
        read(ar__1,2)Note_1(i__),Text(i__)
c    ..............Just test output...........
        write(6,2)Note_1(i__),Text(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end