Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/788/154 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/788/154 Palomar Transient Factory SNe IIn photometry (Ofek+, 2014) *================================================================================ *Interaction-powered supernovae: rise-time versus peak-luminosity correlation *and the shock-breakout velocity. * Ofek E.O., Arcavi I., Tal D., Sullivan M., Gal-Yam A., Kulkarni S.R., * Nugent P.E., Ben-Ami S., Bersier D., Cao Y., Cenko S.B., De Cia A., * Filippenko A.V., Fransson C., Kasliwal M.M., Laher R., Surace J., * Quimby R., Yaron O. * <Astrophys. J., 788, 154 (2014)> * =2014ApJ...788..154O (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Supernovae Sample integer*4 nr__ parameter (nr__=19) ! Number of records character*106 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg character*9 PTF (nr__) ! SN identifier (PTF YYaaa; iPTF YYaaa in Simbad) character*1 n_PTF (nr__) ! [n] Note on PTF (1) real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000) real*4 z (nr__) ! Redshift real*4 MOD (nr__) ! (mag) Distance modulus of the SN host galaxy real*4 E_B_V (nr__) ! (mag) Galactic extinction in the SN direction real*8 t0 (nr__) ! (d) MJD of the fitted zero flux real*8 tmax (nr__) ! (d) MJD of the R-band light-curve peak real*4 Lmax (nr__) ! (10-7W) Peak luminosity corresponding to tmax real*4 L0 (nr__) ! (10-7W) Luminosity extrapolated to a time of 1 s (2) real*4 te (nr__) ! (d) Exponential rise time of the early-time * light curve real*4 e_te (nr__) ! (d) ? Uncertainty in te real*4 chi2 (nr__) ! The {chi}^2^ value integer*4 DOF (nr__) ! [2/58] Degree of freedom integer*4 vbo (nr__) ! (km/s) Lower limit on the shock velocity (3) real*4 log10K (nr__) ! ([g/cm]) Log of the mass-loading parameter (4) *Note (1): Note as follows: * n = SN has relative error in t_e_ larger than 50% and was excluded from our * correlation analysis. *Note (2): L_0_=L_max_(t/t_bo_)^-{alpha}^, where the time is measured in seconds * (e.g., Equation (2)). *Note (3): Deduced from Equation (1) and assuming {epsilon}=0.3, w=2, and m=10; * {kappa}=0.34 cm^2^/g. *Note (4): K=M/(4{pi}{nu}_w_) is calculated assuming a wind profile with w=2. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Supernovae Photometry integer*4 nr__1 parameter (nr__1=1006) ! Number of records character*39 ar__1 ! Full-size record character*9 PTF_1 (nr__1) ! SN identifier (PTF YYaaa; iPTF YYaaa in Simbad) character*3 Tel (nr__1) ! Telescope (1) character*1 Filter (nr__1) ! [grRi] Filter real*8 MJD (nr__1) ! (d) Modified Julian Date real*4 mag (nr__1) ! (mag) The PTF magnitude in Filter real*4 e_mag (nr__1) ! (mag) Error in mag *Note (1): Telescope as follows: * PTF = Palomar Transient Factory; * P60 = Palomar 60-inch telescope; * LT = Liverpool 2-m telescope. C============================================================================= C Loading file 'table1.dat' ! Supernovae Sample C Format for file interpretation 1 format( + A9,1X,A1,1X,F8.4,1X,F8.4,1X,F5.3,1X,F5.2,1X,F5.3,1X,F7.1,1X, + F7.1,1X,E6.2,1X,E6.2,1X,F4.1,1X,F4.1,1X,F5.1,1X,I2,1X,I4,1X, + F4.1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,19 read(1,'(A106)')ar__ read(ar__,1) + PTF(i__),n_PTF(i__),RAdeg(i__),DEdeg(i__),z(i__),MOD(i__), + E_B_V(i__),t0(i__),tmax(i__),Lmax(i__),L0(i__),te(i__), + e_te(i__),chi2(i__),DOF(i__),vbo(i__),log10K(i__) if(ar__(84:87) .EQ. '') e_te(i__) = rNULL__ c ..............Just test output........... write(6,1) + PTF(i__),n_PTF(i__),RAdeg(i__),DEdeg(i__),z(i__),MOD(i__), + E_B_V(i__),t0(i__),tmax(i__),Lmax(i__),L0(i__),te(i__), + e_te(i__),chi2(i__),DOF(i__),vbo(i__),log10K(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Supernovae Photometry C Format for file interpretation 2 format(A9,2X,A3,1X,A1,1X,F9.3,1X,F6.3,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,1006 read(1,'(A39)')ar__1 read(ar__1,2) + PTF_1(i__),Tel(i__),Filter(i__),MJD(i__),mag(i__),e_mag(i__) c ..............Just test output........... write(6,2) + PTF_1(i__),Tel(i__),Filter(i__),MJD(i__),mag(i__),e_mag(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end