Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/831/105 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 2024-Apr-20
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/ApJ/831/105 Global energetics of solar flares. IV. CME (Aschwanden, 2016)
*================================================================================
*Global energetics of solar flares.
*IV. Coronal mass ejection energetics.
* Aschwanden M.J.
* <Astrophys. J., 831, 105-105 (2016)>
* =2016ApJ...831..105A (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table34.dat' ! Temporal, spatial, and coronal mass ejection
(CME) parameters of the GOES flares analyzed;
combined tables 3 and 4
integer*4 nr__
parameter (nr__=399) ! Number of records
character*144 ar__ ! Full-size record
integer*4 Seq (nr__) ! Flare sequence number
character*4 Cl (nr__) ! GOES class (C7.3 to X6.9)
character*6 Pos (nr__) ! Heliographic position
character*10 Date (nr__) ! ("Y-M-D") UTC date of Flare start
character*5 Start (nr__) ! ("h:m") Start time, GOES flare catalog
integer*4 Rise (nr__) ! (s) [120/18720] Rise time, t_peak_-t_start_
integer*4 Decay (nr__) ! (s) [120/7140] Decay time, t_end_-t_peak_
integer*4 dt_d (nr__) ! (s) [-420/6480] Dimming delay, t_dimm_-t_peak_
integer*4 tau_d (nr__) ! (s) [30/1960] Dimming duration, t_half_-t_dimm_
integer*4 tau_p (nr__) ! (s) [20/3263] Propagation time, length/velocity
real*4 L (nr__) ! (cm) Length scale
real*4 Area (nr__) ! (cm2) Projected area A_p_
real*4 qdimm (nr__) ! [0.3/1] Dimming ratio (1)
real*4 EM_A (nr__) ! (cm-5) Total Emission measure at peak time, EM_tot_/A
real*4 ne (nr__) ! (cm-3) Electron Density at flare start time
real*4 Te (nr__) ! (K) Electron temperature at flare start time
real*4 Mass (nr__) ! (g) CME Mass
real*4 Vel (nr__) ! (cm/s) CME Velocity (2)
real*4 Ekin (nr__) ! (10-7J) Kinetic energy, erg (2)
real*4 Egrav (nr__) ! (10-7J) Gravitational potential energy, erg (2)
*Note (1): A measure of the simple EUV dimming behavior is the dimming ratio,
* Equation (25): q_dimm_=(EM_max_-EM_min_)/(EM_max_-EM_bg_)
* which is close to unity for simple events.
* See section 3.1 for further explanations.
*Note (2): Asymptotic values at the end time of the analyzed time interval.
C=============================================================================
C Loading file 'table34.dat' ! Temporal, spatial, and coronal mass ejection
* (CME) parameters of the GOES flares analyzed;
* combined tables 3 and 4
C Format for file interpretation
1 format(
+ I3,1X,A4,1X,A6,1X,A10,1X,A5,1X,I5,1X,I4,1X,I4,1X,I4,1X,I4,1X,
+ E8.2,1X,E8.2,1X,F4.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,
+ 1X,E8.2,1X,E8.2)
C Effective file loading
open(unit=1,status='old',file=
+'table34.dat')
write(6,*) '....Loading file: table34.dat'
do i__=1,399
read(1,'(A144)')ar__
read(ar__,1)
+ Seq(i__),Cl(i__),Pos(i__),Date(i__),Start(i__),Rise(i__),
+ Decay(i__),dt_d(i__),tau_d(i__),tau_p(i__),L(i__),Area(i__),
+ qdimm(i__),EM_A(i__),ne(i__),Te(i__),Mass(i__),Vel(i__),
+ Ekin(i__),Egrav(i__)
c ..............Just test output...........
write(6,1)
+ Seq(i__),Cl(i__),Pos(i__),Date(i__),Start(i__),Rise(i__),
+ Decay(i__),dt_d(i__),tau_d(i__),tau_p(i__),L(i__),Area(i__),
+ qdimm(i__),EM_A(i__),ne(i__),Te(i__),Mass(i__),Vel(i__),
+ Ekin(i__),Egrav(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end