Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/699/L139 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-Mar-29 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/699/L139 Spectral parameters of SNe Ia (Wang+, 2009) *================================================================================ *Improved distances to type Ia supernovae with two spectroscopic subclasses. * Wang X., Filippenko A.V., Ganeshalingam M., Li W., Silverman J.M., Wang L., * Chornock R., Foley R.J., Gates E.L., Macomber B., Serduke F.J.D., * Steele T.N., Wong D.S. * <Astrophys. J., 699, L139-L143 (2009)> * =2009ApJ...699L.139W C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Observed parameters of the SN Ia sample integer*4 nr__ parameter (nr__=158) ! Number of records character*68 ar__ ! Full-size record character*6 SN (nr__) ! Supernova identification (YYYYaa) character*1 f_SN (nr__) ! [d] SN-Ia with Cepheid distance integer*4 cz (nr__) ! (km/s) Recession velocity (2) real*4 VMAG (nr__) ! (mag) Absolute V band magnitude at maximum real*4 e_VMAG (nr__) ! (mag) The 1{sigma} uncertainty in VMAG real*4 Dm15 (nr__) ! (mag) Luminosity decline rate {Delta}m_15_ (3) real*4 e_Dm15 (nr__) ! (mag) The 1{sigma} uncertainty in Delm15 real*4 B_V (nr__) ! (mag) The (B-V) color index at maximum real*4 e_B_V (nr__) ! (mag) The 1{sigma} uncertainty in B-V real*4 E_B_V (nr__) ! (mag) Host galaxy (B-V) color excess real*4 e_E_B_V (nr__) ! (mag) Uncertainty in E(B-V) real*4 TType (nr__) ! ? RC3 host galaxy T morphology character*1 f_TType (nr__) ! [?] Uncertainty flag on Morph character*2 Type (nr__) ! SN type ("HV" or "N" for normal) (4) *Note (2): Distances to the SNe are computed by using the redshifts of their * host galaxies, in the reference frame of the 3K cosmic microwave * background radiation for samples at redshift z{>~}0.01 or corrected * to a self-consistent Virgocentric infall of 220km/s for closer ones, * with a Hubble constant H_0_=70.5 km/s/Mpc (Komatsu et al. * 2009ApJS..180..330K). A peculiar-velocity component of 300km/s is * included in the distance-modulus uncertainties. Cepheid distances * are adopted whenever available (see Wang X. et al. 2006, Cat. * J/ApJ/645/488 and references therein). *Note (3): Value has been corrected for the reddening effect * (Phillips et al. 1999AJ....118.1766P). *Note (4): SN Ia sample is divided into "Normal" and "HV" groups according * to the observed velocity of SiII{lambda}6355. * N = "Normal" group which consists of normal SNe Ia populating a narrow strip * in the SiII velocity distribution, with an average expansion velocity * <{nu}>=10600+/-400km/s near B maximum; * HV = the other group which consists of objects with higher velocities, * {nu}>~11800km/s. C============================================================================= C Loading file 'table1.dat' ! Observed parameters of the SN Ia sample C Format for file interpretation 1 format( + A6,1X,A1,1X,I5,1X,F6.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X, + F4.2,1X,F5.2,1X,F4.2,1X,F5.1,A1,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,158 read(1,'(A68)')ar__ read(ar__,1) + SN(i__),f_SN(i__),cz(i__),VMAG(i__),e_VMAG(i__),Dm15(i__), + e_Dm15(i__),B_V(i__),e_B_V(i__),E_B_V(i__),e_E_B_V(i__), + TType(i__),f_TType(i__),Type(i__) if(ar__(60:64) .EQ. '') TType(i__) = rNULL__ c ..............Just test output........... write(6,1) + SN(i__),f_SN(i__),cz(i__),VMAG(i__),e_VMAG(i__),Dm15(i__), + e_Dm15(i__),B_V(i__),e_B_V(i__),E_B_V(i__),e_E_B_V(i__), + TType(i__),f_TType(i__),Type(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end