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