Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/832/27 into FORTRAN code for reading data files line by line.
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/832/27 Global energetics of solar flares. III. (Aschwanden+, 2016) *================================================================================ *Global energetics of solar flares. *III. Nonthermal energies. * Aschwanden M.J., Holman G., O'Flannagain A., Caspi A., McTiernan J.M., * Kontar E.P. * <Astrophys. J., 832, 27-27 (2016)> * =2016ApJ...832...27A (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Nonthermal energy parameters derived in 191 flare events observed with RHESSI integer*4 nr__ parameter (nr__=190) ! Number of records character*88 ar__ ! Full-size record integer*4 Seq ! Index number character*10 Obs_date ! ("Y/M/D") Date of Flare start character*5 Obs_time ! ("h:m") Time of Flare start character*4 Cl ! GOES class character*6 Pos ! Heliographic position integer*4 Dur ! (s) [160/20740] Soft X-ray flare duration integer*4 PkCts ! (ct/s) [30/53158] Peak counts real*4 Cts ! (ct/s) Total counts integer*4 LowE ! (keV) [6/16] Lower bounds of fitted energy range integer*4 UpE ! (keV) [20/50] Upper bounds of fitted energy range real*4 Cutoff ! (keV) [1.6/11.7] Warm-target lower cutoff energy (1) real*4 Ewt ! (10-7J) Nonthermal energy, E_wt_; in ergs real*8 ERatio1 ! [0.002/76]?=0 Ratio of thermal to warm-target * nonthermal energies, E_th_/E_wt_ character*1 f_ERatio1 ! [*] Flag on ERatio1 (2) real*4 ERatio2 ! [0.002/39]?=0 Ratio of warm-target nonthermal * to magnetic energies, E_wt_/E_mag_ *Note (1): For a mean temperature of T_e_ = 8.6 MK in flaring active regions. *Note (2): * * = Questionable solar flare event, detected in the front detectors * without position. C============================================================================= C Loading file 'table1.dat' ! Nonthermal energy parameters derived in 191 flare * events observed with RHESSI C Format for file interpretation 1 format( + I3,1X,A10,1X,A5,1X,A4,1X,A6,1X,I5,1X,I5,1X,E7.1,1X,I2,1X,I2, + 1X,F4.1,1X,E7.1,1X,F7.4,1X,A1,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,190 read(1,'(A88)')ar__ read(ar__,1) + Seq,Obs_date,Obs_time,Cl,Pos,Dur,PkCts,Cts,LowE,UpE,Cutoff, + Ewt,ERatio1,f_ERatio1,ERatio2 c ..............Just test output........... write(6,1) + Seq,Obs_date,Obs_time,Cl,Pos,Dur,PkCts,Cts,LowE,UpE,Cutoff, + Ewt,ERatio1,f_ERatio1,ERatio2 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end