Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/671/1503 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-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/671/1503 Cl 0024+16 and MS 0451-03 spectrophotometry (Moran+, 2007)
*================================================================================
*A wide-field survey of two z~0.5 galaxy clusters: identifying the physical
*processes responsible for the observed transformation of spirals into S0s.
* Moran S.M., Ellis R.S., Treu T., Smith G.P., Rich R.M., Smail I.
* <Astrophys. J., 671, 1503-1522 (2007)>
* =2007ApJ...671.1503M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! MS 0451-03 redshift catalog
integer*4 nr__
parameter (nr__=1562) ! Number of records
character*28 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000) (G1)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) (G1)
real*4 z ! Redshift
character*1 r_z ! [1/2] Redshift source: 1 = Keck/DEIMOS,
* 2 = Ellingson et al. 1998 (J/ApJS/116/247)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Photometric and spectroscopic measurements for
all cluster galaxies
integer*4 nr__1
parameter (nr__1=483) ! Number of records
character*74 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg_1 ! (deg) Right Ascension in decimal degrees (J2000) (G1)
real*8 DEdeg_1 ! (deg) Declination in decimal degrees (J2000) (G1)
real*4 z_1 ! Redshift
character*4 MType ! Morphology type
real*4 Imag ! (mag) HST F814W band (~I band) magnitude
real*4 VMAG ! (mag) Absolute V band magnitude
character*1 l__OII_ ! Limit flag on [OII]
real*4 v_OII_ ! (0.1nm) ? [OII] (3727{AA}) equivalent width (1)
real*4 e__OII_ ! (0.1nm) ? Uncertainty in [OII]
real*4 Dn ! ? D_n_(4000) index (2)
real*4 e_Dn ! ? Uncertainty in Dn
real*4 HdA ! (0.1nm) ? The H{delta}_A_ index (1)
real*4 e_HdA ! (0.1nm) ? Uncertainty in HdA
*Note (1): Described in Paper III, Moran et al., Cat. <J/ApJ/634/977>.
*Note (2): Indicates the strength of the 4000 Angstrom break; we adopt the
* definition from Balogh et al. (1999ApJ...527...54B).
C=============================================================================
C Loading file 'table2.dat' ! MS 0451-03 redshift catalog
C Format for file interpretation
1 format(F9.6,1X,F9.6,1X,F6.3,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,1562
read(1,'(A28)')ar__
read(ar__,1)RAdeg,DEdeg,z,r_z
c ..............Just test output...........
write(6,1)RAdeg,DEdeg,z,r_z
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Photometric and spectroscopic measurements for
* all cluster galaxies
C Format for file interpretation
2 format(
+ F9.6,1X,F9.6,1X,F6.4,1X,A4,1X,F4.1,1X,F5.1,1X,A1,F6.1,1X,F4.1,
+ 1X,F4.2,1X,F4.2,1X,F4.1,1X,F3.1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,483
read(1,'(A74)')ar__1
read(ar__1,2)
+ RAdeg_1,DEdeg_1,z_1,MType,Imag,VMAG,l__OII_,v_OII_,e__OII_,Dn,
+ e_Dn,HdA,e_HdA
if(ar__1(45:50) .EQ. '') v_OII_ = rNULL__
if(ar__1(52:55) .EQ. '') e__OII_ = rNULL__
if(ar__1(57:60) .EQ. '') Dn = rNULL__
if(ar__1(62:65) .EQ. '') e_Dn = rNULL__
if(ar__1(67:70) .EQ. '') HdA = rNULL__
if(ar__1(72:74) .EQ. '') e_HdA = rNULL__
c ..............Just test output...........
write(6,2)
+ RAdeg_1,DEdeg_1,z_1,MType,Imag,VMAG,l__OII_,v_OII_,e__OII_,Dn,
+ e_Dn,HdA,e_HdA
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end