Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/634/977 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-Mar-28 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/634/977 Redshifts in Cl 0024+16 members (Moran+, 2005) *================================================================================ *A Wide-Field Hubble Space Telescope survey of the cluster Cl 0024+16 at z=0.4. *III. Spectroscopic signatures of environmental evolution in early-type galaxies. * Moran S.M., Ellis R.S., Treu T., Smail I., Dressler A., Coil A.L., * Smith G.P. * <Astrophys. J., 634, 977-1001 (2005)> * =2005ApJ...634..977M C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Observed E+S0 cluster members integer*4 nr__ parameter (nr__=104) ! Number of records character*54 ar__ ! Full-size record C J2000.0 position composed of: RAdeg DEdeg character*9 Name ! Object name (G1) real*8 RAdeg ! (deg) Right Ascension (J2000.0) real*8 DEdeg ! (deg) Declination (J2000.0) real*4 z ! Redshift real*4 Imag ! (mag) I (F814W) magnitudes (1) real*4 R ! (Mpc) Projected radius of the galaxy integer*4 Sigma ! (Mpc-2) Local density {Sigma}_10_ of the galaxy (2) character*4 MType ! Morphological type *Note (1): F814W magnitudes are corrected for Galactic extinction, adopting * E(B-V)=0.057 (Schlegel et al. 1998ApJ...500..525S). * Errors in F814W magnitudes are less than 0.05mag rms. *Note (2): Typical uncertainty in 10 is 25%, equal to the rms variation in the * local density across different measurement methods. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Cl 0024+1654 redshift catalog integer*4 nr__1 parameter (nr__1=1334) ! Number of records character*48 ar__1 ! Full-size record C J2000 position composed of: RAdeg DEdeg real*8 RAdeg_1 ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_1 ! (deg) Declination in decimal degrees (J2000) real*8 z_1 ! Most reliable redshift integer*4 q_z ! [0/3] Quality flag on z (1) integer*4 r_z ! [1/5] Source flag on z (2) real*8 v_z_ ! Mean redshift when multiple sources available real*8 e__z_ ! The rms difference in <z> integer*4 o__z_ ! Number of redshift sources in <z> *Note (1): Quality flag on z, defined as follows: * 0 = Unspecified by source; * 1 = Secure; * 2 = Probable; * 3 = Uncertain. *Note (2): Source flag on z, defined as follows: * 1 = Czoske et al. (2001, Cat. <J/A+A/372/391>); * 2 = Frazier Owen (private communication); * 3 = Hale/COSMIC; * 4 = Keck/LRIS; * 5 = Keck/DEIMOS c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! All measurements of observed E+S0 members integer*4 nr__2 parameter (nr__2=104) ! Number of records character*61 ar__2 ! Full-size record character*9 Name_1 ! Object name (G1) real*4 v_OII_ ! (0.1nm) Line strength index of [OII] * (Error~0.1{AA}) (1) real*4 HdA ! (0.1nm) Line strength index of H{delta}_A_ * (Error~0.2{AA}) (1) real*4 HgA ! (0.1nm) ? Line strength index of H{gamma}_A_ * (Error~0.2{AA}) (1) real*4 Mgb ! (0.1nm) ? Line strength index of Mg^b^ * (Error~0.1{AA}) (1) real*4 Fe5270 ! (0.1nm) ? Line strength index of Fe at 5270{AA} * (Error~0.1{AA}) (1) real*4 Fe5335 ! (0.1nm) ? Line strength Fe index at 5335{AA} * (Error~0.1{AA}) (1) integer*4 sigma0 ! (km/s) ? Velocity dispersion (2) integer*4 e_sigma0 ! (km/s) ? Error in sigma0 real*4 v_muV_ ! (mag/arcsec2) ? Mean surface brightness * (Error~0.1mag) (3) real*4 Re ! (arcsec) ? Effective radius (Error~0.1") real*4 S_N ! (10nm-1) Signal to noise ratio ({AA}^-1^, observed) *Note (1): Line strengths are given in angstroms of equivalent width, with * negative values denoting emission and positive values indicating * absorption. No aperture corrections have been applied to the indices. *Note (2): The values are aperture corrected to a 3.4" diameter aperture at the * distance to the Coma Cluster. *Note (3): Mean surface brightness within the effective radius, Re, in rest-frame * V band and is corrected for cosmological dimming. C============================================================================= C Loading file 'table1.dat' ! Observed E+S0 cluster members C Format for file interpretation 1 format(A9,1X,F7.5,1X,F8.5,1X,F6.4,1X,F5.2,1X,F4.2,1X,I4,1X,A4) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,104 read(1,'(A54)')ar__ read(ar__,1)Name,RAdeg,DEdeg,z,Imag,R,Sigma,MType c ..............Just test output........... write(6,1)Name,RAdeg,DEdeg,z,Imag,R,Sigma,MType c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Cl 0024+1654 redshift catalog C Format for file interpretation 2 format(F8.6,1X,F9.6,1X,F7.4,1X,I1,1X,I1,1X,F7.4,1X,F7.4,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,1334 read(1,'(A48)')ar__1 read(ar__1,2)RAdeg_1,DEdeg_1,z_1,q_z,r_z,v_z_,e__z_,o__z_ c ..............Just test output........... write(6,2)RAdeg_1,DEdeg_1,z_1,q_z,r_z,v_z_,e__z_,o__z_ c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! All measurements of observed E+S0 members C Format for file interpretation 3 format( + A9,1X,F5.1,1X,F4.1,1X,F4.1,1X,F3.1,1X,F4.1,1X,F4.1,1X,I3,1X, + I2,1X,F5.2,1X,F3.1,1X,F4.1) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,104 read(1,'(A61)')ar__2 read(ar__2,3) + Name_1,v_OII_,HdA,HgA,Mgb,Fe5270,Fe5335,sigma0,e_sigma0, + v_muV_,Re,S_N if(ar__2(22:25) .EQ. '') HgA = rNULL__ if(ar__2(27:29) .EQ. '') Mgb = rNULL__ if(ar__2(31:34) .EQ. '') Fe5270 = rNULL__ if(ar__2(36:39) .EQ. '') Fe5335 = rNULL__ if(ar__2(41:43) .EQ. '') sigma0 = iNULL__ if(ar__2(45:46) .EQ. '') e_sigma0 = iNULL__ if(ar__2(48:52) .EQ. '') v_muV_ = rNULL__ if(ar__2(54:56) .EQ. '') Re = rNULL__ c ..............Just test output........... write(6,3) + Name_1,v_OII_,HdA,HgA,Mgb,Fe5270,Fe5335,sigma0,e_sigma0, + v_muV_,Re,S_N c .......End.of.Just test output........... end do close(1) C============================================================================= stop end