Conversion of standardized ReadMe file for
file /./ftp/cats/J/other/A_ARV/15.289 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/other/A+ARV/15.289 Distances of local galaxies (Tammann+, 2008) *================================================================================ *The expansion field: the value of H0. * Tammann G.A., Sandage A., Reindl B. * <Astron. Astrophys. Rev., 15, 289-331 (2008)> * =2008A&ARv..15..289T C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! High accuracy distances of local galaxies integer*4 nr__ parameter (nr__=279) ! Number of records character*73 ar__ ! Full-size record character*11 Name ! Galaxy name character*5 Group ! Group of the galaxy integer*4 HRV ! (km/s) ? Heliocentric radial velocity integer*4 v220 ! (km/s) ? Velocity corrected for Virgocentric infall real*4 mu0_R ! (mag) ? Distance modulus, corrected for Galactic * absorption, from RR Lyrae character*1 u_mu0_R ! Uncertainty flag on mu0RRLyr real*4 mu0_G ! (mag) ? Distance modulus, corrected for Galactic * absorption, from tip of the red-giant branch real*4 mu0_C ! (mag) ? Distance modulus, corrected for Galactic * absorption, from classical Cepheids real*4 mu0_S ! (mag) ? Distance modulus, corrected for Galactic * absorption, from type Ia supernovae character*1 u_mu0_S ! [)] Uncertainty flag on mu0SNe real*4 v_mu0_ ! (mag) ? Mean distance modulus corrected for * Galactic absorption real*4 v_mu00_ ! (mag) ? Mean distance modulus reduced to the * barycenter of the Local Group (assumed to * be at 0.53Mpc in the direction of M31) character*8 Ref ! References, in refs.dat file c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__1 parameter (nr__1=27) ! Number of records character*89 ar__1 ! Full-size record integer*4 Ref_1 ! Reference number character*19 BibCode ! BibCode character*27 Aut ! Author's name character*38 Com ! Comments C============================================================================= C Loading file 'table1.dat' ! High accuracy distances of local galaxies C Format for file interpretation 1 format( + A11,1X,A5,2X,I4,1X,I4,1X,F5.2,A1,F5.2,1X,F5.2,1X,F5.2,A1,F5.2, + 1X,F5.2,1X,A8) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,279 read(1,'(A73)')ar__ read(ar__,1) + Name,Group,HRV,v220,mu0_R,u_mu0_R,mu0_G,mu0_C,mu0_S,u_mu0_S, + v_mu0_,v_mu00_,Ref if(ar__(20:23) .EQ. '') HRV = iNULL__ if(ar__(25:28) .EQ. '') v220 = iNULL__ if(ar__(30:34) .EQ. '') mu0_R = rNULL__ if(ar__(36:40) .EQ. '') mu0_G = rNULL__ if(ar__(42:46) .EQ. '') mu0_C = rNULL__ if(ar__(48:52) .EQ. '') mu0_S = rNULL__ if(ar__(54:58) .EQ. '') v_mu0_ = rNULL__ if(ar__(60:64) .EQ. '') v_mu00_ = rNULL__ c ..............Just test output........... write(6,1) + Name,Group,HRV,v220,mu0_R,u_mu0_R,mu0_G,mu0_C,mu0_S,u_mu0_S, + v_mu0_,v_mu00_,Ref c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 2 format(I2,1X,A19,1X,A27,1X,A38) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,27 read(1,'(A89)')ar__1 read(ar__1,2)Ref_1,BibCode,Aut,Com c ..............Just test output........... write(6,2)Ref_1,BibCode,Aut,Com c .......End.of.Just test output........... end do close(1) C============================================================================= stop end