Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/731/103 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-19 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/731/103 Redshift catalog for Swift long GRBs (Xiao+, 2011) *================================================================================ *Redshift catalog for Swift long gamma-ray bursts. * Xiao L., Schaefer B.E. * <Astrophys. J., 731, 103 (2011)> * =2011ApJ...731..103X C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Bursts not included in our catalog integer*4 nr__ parameter (nr__=76) ! Number of records character*34 ar__ ! Full-size record character*7 GRB (nr__) ! GRB identification (YYMMDDA) character*25 rej (nr__) ! Rejection cause character*1 n_rej (nr__) ! [a-e] Additional note (1) *Note (1): Note as follows: * a = Suggested a probable Soft Gamma-Ray Repeater. * b = Possible incomplete light curve. * c = Swift BAT slew survey discovery. * d = Short-hard burst with long extended emissions. * e = Below Swift threshold. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Luminosity indicators integer*4 nr__1 parameter (nr__1=258) ! Number of records character*136 ar__1 ! Full-size record character*7 GRB_1 (nr__1) ! GRB identification (YYMMDDA) real*4 tauLag (nr__1) ! (s) ? Spectral lag real*4 e_tauLag (nr__1) ! (s) ? Uncertainty in tauLag real*4 Var (nr__1) ! ? Variability indicator (4) real*4 e_Var (nr__1) ! ? Uncertainty in Var real*4 tauRT (nr__1) ! (s) ? Minimum rise time in the light curve real*4 e_tauRT (nr__1) ! (s) ? Uncertainty in tauRT character*1 l_Np (nr__1) ! Limit flag on Npeak integer*4 Np (nr__1) ! ? Number of peaks in the light curve integer*4 Epeak (nr__1) ! (keV) Photon energy spectrum is brightest integer*4 E_Epeak (nr__1) ! (keV) Upper limit uncertainty in Epeak integer*4 e_Epeak_1 (nr__1) ! (keV) Lower limit uncertainty in Epeak character*1 f_Epeak (nr__1) ! [c] conservative estimation of uncertainty (1) real*4 alpha (nr__1) ! [-5/1] The {alpha} power law index (see refs) real*4 E_alpha (nr__1) ! ? Upper limit uncertainty in alpha real*4 e_alpha_1 (nr__1) ! Uncertainty in alpha (2) character*1 f_alpha (nr__1) ! [c] conservative estimation of uncertainty (1) real*4 beta (nr__1) ! [-4/2.1] The {beta} power law index (see refs) real*4 E_beta (nr__1) ! ? Upper limit uncertainty in beta real*4 e_beta_1 (nr__1) ! Uncertainty in beta (2) character*1 f_beta (nr__1) ! [c] conservative estimation of uncertainty (1) character*5 refs (nr__1) ! Reference(s) for the power law indices (see * refs.dat file) character*1 l_tJet (nr__1) ! Limit flag on tJet real*8 tJet (nr__1) ! (d) ? Optical jet break time real*4 e_tJet (nr__1) ! (d) ? Uncertainty in tJet character*2 n_tJet (nr__1) ! Individual notes on tJet (3) character*10 r_tJet (nr__1) ! Reference(s) for tJet (see refs.dat file) *Note (1): Indicates a conservative estimation of uncertainty not reported * in the original paper. *Note (2): This is a lower limit when the upper limit in the previous column * is provided otherwise it is the symmetric uncertainty. *Note (3): Flag as follows: * b = Jet break time reported from X-ray data only, not being used in * this work. * c = Multi-values for jet break reported, due to the confusing condition * of the afterglow light curve, not using any of these values in * this work. * d = Grupe et al. (2006ApJ...645..464G) shows no break between 0.4-2.5day, * with the slope of the light curve suggesting a break before 0.4day, * while both Ghirlanda et al. (2007A&A...466..127G) and Campana et al. * (2007A&A...472..395C) suggest a break after 2.5day, based on Ghirlanda's * relation. * e = Value obtained from Liang et al. (2008ApJ...675..528L ) figure and text, * table 4 misreported it. * f = With a pre-break slope too shallow for the forward shock model, not * being used as a jet break time. * g = Only one post-break data reported. * h = Optical break not restrictive. * i = Break not detected in X-ray data. * j = Optical data confusing, not able to make decision where the * jet break lies. * k = Only taking R band jet break, as later data is lacked in V band. *Note (4): the variability indicator V measures whether a light curve * is spiky (large V) or smooth; see Fennimore and Ramirez-Ruiz 2000, * astro-ph:0004176 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Our redshifts and spectroscopic redshifts integer*4 nr__2 parameter (nr__2=263) ! Number of records character*72 ar__2 ! Full-size record character*7 GRB_2 (nr__2) ! GRB identification (YYMMDDA) character*1 l_zsp (nr__2) ! Limit flag on zsp real*4 zsp (nr__2) ! ? Spectroscopic redshift real*4 e_zsp (nr__2) ! ? Uncertainty in zsp character*3 r_zsp (nr__2) ! Reference for zsp (see refs.dat file) character*1 l_zbest (nr__2) ! Limit flag on zbest real*4 zbest (nr__2) ! ? Best estimated redshift real*4 e_zbest (nr__2) ! ? The 1{sigma} lower limit on zbest real*4 E_zbest_1 (nr__2) ! ? The 1{sigma} upper limit on zbest real*4 zph (nr__2) ! ? Upper limit from photometric redshift character*9 r_zph (nr__2) ! Reference for zph (see refs.dat file) character*1 l_z (nr__2) ! Limit flag on z real*4 z (nr__2) ! Final redshift real*4 e_z (nr__2) ! ? Uncertainty in z c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__3 parameter (nr__3=282) ! Number of records character*86 ar__3 ! Full-size record character*4 Ref (nr__3) ! Reference code character*19 BibCode (nr__3) ! Bibcode character*24 Aut (nr__3) ! Author's name(s) character*36 Comm (nr__3) ! Comment C============================================================================= C Loading file 'table1.dat' ! Bursts not included in our catalog C Format for file interpretation 1 format(A7,1X,A25,A1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,76 read(1,'(A34)')ar__ read(ar__,1)GRB(i__),rej(i__),n_rej(i__) c ..............Just test output........... write(6,1)GRB(i__),rej(i__),n_rej(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Luminosity indicators C Format for file interpretation 2 format( + A7,1X,F5.2,1X,F4.2,1X,F6.3,1X,F5.3,1X,F5.2,1X,F4.2,2X,A1,I2, + 1X,I4,1X,I4,1X,I3,1X,A1,1X,F6.3,1X,F4.2,1X,F4.2,1X,A1,1X,F5.2, + 1X,F4.2,1X,F4.2,1X,A1,1X,A5,1X,A1,F7.4,1X,F6.4,1X,A2,1X,A10) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,258 read(1,'(A136)')ar__1 read(ar__1,2) + GRB_1(i__),tauLag(i__),e_tauLag(i__),Var(i__),e_Var(i__), + tauRT(i__),e_tauRT(i__),l_Np(i__),Np(i__),Epeak(i__), + E_Epeak(i__),e_Epeak_1(i__),f_Epeak(i__),alpha(i__), + E_alpha(i__),e_alpha_1(i__),f_alpha(i__),beta(i__), + E_beta(i__),e_beta_1(i__),f_beta(i__),refs(i__),l_tJet(i__), + tJet(i__),e_tJet(i__),n_tJet(i__),r_tJet(i__) if(ar__1(9:13) .EQ. '') tauLag(i__) = rNULL__ if(ar__1(15:18) .EQ. '') e_tauLag(i__) = rNULL__ if(ar__1(20:25) .EQ. '') Var(i__) = rNULL__ if(ar__1(27:31) .EQ. '') e_Var(i__) = rNULL__ if(ar__1(33:37) .EQ. '') tauRT(i__) = rNULL__ if(ar__1(39:42) .EQ. '') e_tauRT(i__) = rNULL__ if(ar__1(46:47) .EQ. '') Np(i__) = iNULL__ if(ar__1(72:75) .EQ. '') E_alpha(i__) = rNULL__ if(ar__1(90:93) .EQ. '') E_beta(i__) = rNULL__ if(ar__1(109:115) .EQ. '') tJet(i__) = rNULL__ if(ar__1(117:122) .EQ. '') e_tJet(i__) = rNULL__ c ..............Just test output........... write(6,2) + GRB_1(i__),tauLag(i__),e_tauLag(i__),Var(i__),e_Var(i__), + tauRT(i__),e_tauRT(i__),l_Np(i__),Np(i__),Epeak(i__), + E_Epeak(i__),e_Epeak_1(i__),f_Epeak(i__),alpha(i__), + E_alpha(i__),e_alpha_1(i__),f_alpha(i__),beta(i__), + E_beta(i__),e_beta_1(i__),f_beta(i__),refs(i__),l_tJet(i__), + tJet(i__),e_tJet(i__),n_tJet(i__),r_tJet(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Our redshifts and spectroscopic redshifts C Format for file interpretation 3 format( + A7,1X,A1,1X,F6.3,1X,F3.1,1X,A3,1X,A1,1X,F6.3,1X,F4.2,1X,F6.3, + 1X,F4.2,1X,A9,1X,A1,1X,F5.2,1X,F3.1) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,263 read(1,'(A72)')ar__2 read(ar__2,3) + GRB_2(i__),l_zsp(i__),zsp(i__),e_zsp(i__),r_zsp(i__), + l_zbest(i__),zbest(i__),e_zbest(i__),E_zbest_1(i__),zph(i__), + r_zph(i__),l_z(i__),z(i__),e_z(i__) if(ar__2(11:16) .EQ. '') zsp(i__) = rNULL__ if(ar__2(18:20) .EQ. '') e_zsp(i__) = rNULL__ if(ar__2(28:33) .EQ. '') zbest(i__) = rNULL__ if(ar__2(35:38) .EQ. '') e_zbest(i__) = rNULL__ if(ar__2(40:45) .EQ. '') E_zbest_1(i__) = rNULL__ if(ar__2(47:50) .EQ. '') zph(i__) = rNULL__ if(ar__2(70:72) .EQ. '') e_z(i__) = rNULL__ c ..............Just test output........... write(6,3) + GRB_2(i__),l_zsp(i__),zsp(i__),e_zsp(i__),r_zsp(i__), + l_zbest(i__),zbest(i__),e_zbest(i__),E_zbest_1(i__),zph(i__), + r_zph(i__),l_z(i__),z(i__),e_z(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 4 format(A4,1X,A19,1X,A24,1X,A36) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,282 read(1,'(A86)')ar__3 read(ar__3,4)Ref(i__),BibCode(i__),Aut(i__),Comm(i__) c ..............Just test output........... write(6,4)Ref(i__),BibCode(i__),Aut(i__),Comm(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end