Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/498/195 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-18 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/498/195 Spectroscopic survey of CL 1358+62 (Fisher+ 1998) *================================================================================ *A spectroscopic survey of the galaxy cluster CL 1358+62 at z = 0.328. * Fisher D., Fabricant D., Franx M., Van Dokkum P. * <Astrophys. J. 498, 195 (1998)> * =1998ApJ...498..195F C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! CL 1358+62 catalog integer*4 nr__ parameter (nr__=232) ! Number of records character*101 ar__ ! Full-size record integer*4 v_FFF98_ (nr__) ! Identification number ([FFF98] NNNN) real*8 xpos (nr__) ! (arcsec) x position (1) real*8 ypos (nr__) ! (arcsec) y position (1) real*4 Rmag (nr__) ! (mag) R magnitude real*4 V_R (nr__) ! (mag) ? V-R colour index real*8 z (nr__) ! Redshift real*8 e_z (nr__) ! rms uncertainty on z real*4 Hd (nr__) ! ? Line strength index H{delta} (2) real*4 e_Hd (nr__) ! ? rms uncertainty on Hd real*4 Hg (nr__) ! ? Line strength index H{gamma} (2) real*4 e_Hg (nr__) ! ? rms uncertainty on Hg real*4 Hb (nr__) ! ? Line strength index H{beta} (2) real*4 e_Hb (nr__) ! ? rms uncertainty on Hb real*4 v_OII_ (nr__) ! ? Line strength index [O II] (2) real*4 e__OII_ (nr__) ! ? rms uncertainty on [O II] character*10 Notes (nr__) ! Notes (3) *Note (1): Positions are given with respect to the brightest cluster galaxy * (number 375) at 13:58:20.7s+62:45:33 (1950), with * positive x to the west and positive y to the north. *Note (2): The strength of each spectral index is a measure of the flux in the * central bandpass compared to a continuum level set by the sidebands. * ------------------------------------------------------------------ * Line strength index definitions: * ------------------------------------------------------------------ * Index Bandpass Blue Sideband Red Sideband * ------------------------------------------------------------------ * Hdelta 4083.500-4122.250 4017.00-4057.00 4153.00-4193.00 * Hgamma 4319.750-4363.500 4242.00-4282.00 4404.00-4444.00 * Hbeta 4847.875-4876.625 4799.00-4839.00 4886.00-4926.00 * [O II] 3716.300-3738.300 3696.30-3716.30 3738.30-3758.30 * ------------------------------------------------------------------ *Note (3): The following abbreviations are used: * abs: galaxy with absorption lines * emi: galaxy with emission lines * E+A: starburst galaxy * bcg+emi: brightest cluster galaxy, galaxy with emission lines * emi+Hdelta: galaxy with [O II] emission and H{delta} absorption stronger * than 4{AA}. C============================================================================= C Loading file 'table1.dat' ! CL 1358+62 catalog C Format for file interpretation 1 format( + I4,1X,F7.2,1X,F7.2,1X,F5.2,1X,F4.2,1X,F7.5,1X,F7.5,1X,F4.1,1X, + F4.1,1X,F5.1,1X,F4.1,1X,F5.1,1X,F4.1,1X,F5.1,1X,F4.1,1X,A10) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,232 read(1,'(A101)')ar__ read(ar__,1) + v_FFF98_(i__),xpos(i__),ypos(i__),Rmag(i__),V_R(i__),z(i__), + e_z(i__),Hd(i__),e_Hd(i__),Hg(i__),e_Hg(i__),Hb(i__), + e_Hb(i__),v_OII_(i__),e__OII_(i__),Notes(i__) if(ar__(28:31) .EQ. '') V_R(i__) = rNULL__ if(ar__(49:52) .EQ. '') Hd(i__) = rNULL__ if(ar__(54:57) .EQ. '') e_Hd(i__) = rNULL__ if(ar__(59:63) .EQ. '') Hg(i__) = rNULL__ if(ar__(65:68) .EQ. '') e_Hg(i__) = rNULL__ if(ar__(70:74) .EQ. '') Hb(i__) = rNULL__ if(ar__(76:79) .EQ. '') e_Hb(i__) = rNULL__ if(ar__(81:85) .EQ. '') v_OII_(i__) = rNULL__ if(ar__(87:90) .EQ. '') e__OII_(i__) = rNULL__ c ..............Just test output........... write(6,1) + v_FFF98_(i__),xpos(i__),ypos(i__),Rmag(i__),V_R(i__),z(i__), + e_z(i__),Hd(i__),e_Hd(i__),Hg(i__),e_Hg(i__),Hb(i__), + e_Hb(i__),v_OII_(i__),e__OII_(i__),Notes(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end