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.
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 2020-Jul-15 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