Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/565/208 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-17
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/565/208 Galaxy pairs in the CNOC2 Redshift Survey (Patton+, 2002)
*================================================================================
*Dynamically close galaxy pairs and merger rate evolution in the
*CNOC2 Redshift Survey.
* Patton D.R., Pritchet C.J., Carlberg R.G., Marzke R.O., Yee H.K.C.,
* Hall P.B., Lin H., Morris S.L., Sawicki M., Shepherd C.W., Wirth G.D.
* <Astrophys. J. 565, 208 (2002)>
* =2002ApJ...565..208P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! CNOC2 close pairs
integer*4 nr__
parameter (nr__=44) ! Number of records
character*62 ar__ ! Full-size record
C J2000.0 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension J2000.0
real*8 DEdeg ! (deg) Declination J2000.0
C ---------------------------------- ! (position vector(s) in degrees)
character*7 Sample ! Sample designation (1)
integer*4 v_PPC2002_ ! [1/44] Pair number
integer*4 GalA ! CNOC2 identification (PPP number) of galaxy A
* ([PPC2002] NNA in Simbad)
integer*4 GalB ! CNOC2 identification (PPP number) of galaxy B
* ([PPC2002] NNB in Simbad)
real*4 rp ! (kpc) Pojected physical separation
integer*4 DeltaV ! (km/s) Rest-frame line-of-sight velocity difference
* of the galaxies
integer*4 RAh ! (h) Right ascension of the pair center (J2000.0)
integer*4 RAm ! (min) Right ascension of the pair center (J2000.0)
real*4 RAs ! (s) Right ascension of the pair center (J2000.0)
character*1 DE_ ! Declination sign of the pair center (J2000.0)
integer*4 DEd ! (deg) Declination of the pair center (J2000.0)
integer*4 DEm ! (arcmin) Declination of the pair center (J2000.0)
integer*4 DEs ! (arcsec) Declination of the pair center (J2000.0)
real*8 z ! Mean redshift of the pair
*Note (1): The CNOC2 survey covers four well-separated patches on the sky,
* each subtending ~0.4{deg}^2^. These patches have been assigned names
* based on their equatorial coordinates (B1950.0), as follows: 0223+00,
* 0920+37, 1447+09, and 2148-05.
*
* Each patch consists of a contiguous L-shaped region with a central
* block. These patches were chosen to avoid bright stars, known
* low-redshift clusters, and other bright objects at low redshift.
C=============================================================================
C Loading file 'table1.dat' ! CNOC2 close pairs
C Format for file interpretation
1 format(
+ A7,1X,I2,1X,I6,1X,I6,1X,F4.1,1X,I3,1X,I2,1X,I2,1X,F4.1,1X,A1,
+ I2,1X,I2,1X,I2,1X,F7.5)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,44
read(1,'(A62)')ar__
read(ar__,1)
+ Sample,v_PPC2002_,GalA,GalB,rp,DeltaV,RAh,RAm,RAs,DE_,DEd,DEm,
+ DEs,z
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ Sample,v_PPC2002_,GalA,GalB,rp,DeltaV,RAh,RAm,RAs,DE_,DEd,DEm,
+ DEs,z
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end