Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/137/179 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-19
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/AJ/137/179 AGNs in the Extended Groth Strip Survey (Ramos Almeida+, 2009)
*================================================================================
*Characterization of active galactic nuclei and their hosts in the Extended
*Groth Strip: a multiwavelength analysis.
* Ramos Almeida C., Rodriguez Espinosa J.M., Barro G., Gallego J.,
* Perez-Gonzalez P.G.
* <Astron. J., 137, 179-196 (2009)>
* =2009AJ....137..179R
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! *Photometric redshifts and additional information
derived from the SED fits of the 96 objects
with single detections
integer*4 nr__
parameter (nr__=96) ! Number of records
character*82 ar__ ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 v_RRB2009_ (nr__) ! ID (from Barmby et al., 2006, J/ApJ/642/126)
* ("recno" in VizieR)
integer*4 IRAC (nr__) ! IRAC ID
integer*4 m_IRAC (nr__) ! ? Multiplicity index on IRAC
real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (1)
real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (1)
real*4 zsp (nr__) ! ?=- Spectroscopic redshift from the DEEP
* public database (2)
character*1 q_zsp (nr__) ! [1-4] zsp reliability: 1-2=low, 3-4=high
real*4 zph (nr__) ! Photometric redshift
real*4 chi2 (nr__) ! {chi}^2^ value
integer*4 prFit (nr__) ! (%) Probability of the HyperZ fit
real*4 AV (nr__) ! Optical extinction from Calzetti et al.
* reddening law (2000ApJ...533..682C)
real*4 nuLnu (nr__) ! ([10-7W]) Logarithm of {nu}L{nu} in the r band
* (in ergs/s)
integer*4 Temp (nr__) ! Fitted template (5)
character*14 Group (nr__) ! Main group classification (6)
*Note (1): IRAC 3.6{mu}m J2000.0 right ascension and declination.
*Note (2): See http://deep.ucolick.org/archive.html
*Note (5): Template, defined as follows:
* 1, 2 = Starburst/ULIRG,
* 3, 5 = Starburst,
* 4 = Sy1/Starburst/ULIRG,
* 6 = Sy2/Starburst,
* 13 = Sy2/Starburst/ULIRG,
* 7, 12, 14 = Type-1 QSO,
* 8 = Type-2 QSO,
* 9 = Sy1.8,
* 10 = Sy2,
* 11 = Torus-QSO,
* 15 = Ellipticals of 2Gyr,
* 16 = Ellipticals of 5Gyr,
* 17 = Ellipticals of 13Gyr,
* 18 = Spirals of type S0
* 19 = Spirals of type Sa
* 20 = Spirals of type Sb
* 21 = Spirals of type Sc
* 22 = Spirals of type Sd
* 23 = Spirals of type Sdm.
*Note (6): Main group class as follows:
* SB-dom. AGN = Starburst-dominated AGNs (24%)
* SB-cont. AGN = Starburst-contaminated AGNs (7%)
* Type-1 AGN = (21%)
* Type-2 AGN = (24%)
* NG hosting AGN = Normal Galaxy hosting AGN (24%)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Morphological classification of the 20 objects
with double detections. Description of the IR
contribution of each member in a pair is reported
integer*4 nr__1
parameter (nr__1=20) ! Number of records
character*99 ar__1 ! Full-size record
integer*4 v_RRB2009__1(nr__1) ! ID (from Barmby et al., 2006, J/ApJ/642/126)
* ("recno" in VizieR)
integer*4 IRAC_1 (nr__1) ! IRAC number
character*8 s1 (nr__1) ! Source 1 IR emission (1)
character*10 s2 (nr__1) ! Source 2 IR emission (1)
character*68 Com (nr__1) ! Comments (2)
*Note (1): Mid-infrared emission of sources 1 and 2 in each pair of galaxies.
*Note (2): Comments based on visual inspection of the objects.
* Classification of objects as "probably not AGN" is based on their
* mid-infrared emission.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! *Photometric redshifts and additional information
derived from the SED fits of the 20 objects
with double detections
integer*4 nr__2
parameter (nr__2=23) ! Number of records
character*82 ar__2 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 v_RRB2009__2(nr__2) ! ID (from Barmby et al., 2006, J/ApJ/642/126)
* ("recno" in VizieR)
integer*4 IRAC_2 (nr__2) ! IRAC ID
integer*4 m_IRAC_1 (nr__2) ! ? Multiplicity index on IRAC
real*8 RAdeg_1 (nr__2) ! (deg) Right Ascension in decimal degrees (1)
real*8 DEdeg_1 (nr__2) ! (deg) Declination in decimal degrees (1)
real*4 zsp_1 (nr__2) ! ?=- Spectroscopic redshift from the DEEP
* public database (2)
character*1 q_zsp_1 (nr__2) ! [1-4] zsp reliability: 1-2=low, 3-4=high
real*4 zph_1 (nr__2) ! Photometric redshift
real*4 chi2_1 (nr__2) ! {chi}^2^ value
integer*4 prFit_1 (nr__2) ! (%) Probability of the HyperZ fit
real*4 AV_1 (nr__2) ! Optical extinction from Calzetti et al.
* reddening law (2000ApJ...533..682C)
real*4 nuLnu_1 (nr__2) ! ([10-7W]) Logarithm of {nu}L{nu} in the r band
* (in ergs/s)
integer*4 Temp_1 (nr__2) ! Fitted template (5)
character*14 Group_1 (nr__2) ! Main group classification (6)
*Note (1): IRAC 3.6{mu}m J2000.0 right ascension and declination.
*Note (2): See http://deep.ucolick.org/archive.html
*Note (5): Template, defined as follows:
* 1, 2 = Starburst/ULIRG,
* 3, 5 = Starburst,
* 4 = Sy1/Starburst/ULIRG,
* 6 = Sy2/Starburst,
* 13 = Sy2/Starburst/ULIRG,
* 7, 12, 14 = Type-1 QSO,
* 8 = Type-2 QSO,
* 9 = Sy1.8,
* 10 = Sy2,
* 11 = Torus-QSO,
* 15 = Ellipticals of 2Gyr,
* 16 = Ellipticals of 5Gyr,
* 17 = Ellipticals of 13Gyr,
* 18 = Spirals of type S0
* 19 = Spirals of type Sa
* 20 = Spirals of type Sb
* 21 = Spirals of type Sc
* 22 = Spirals of type Sd
* 23 = Spirals of type Sdm.
*Note (6): Main group class as follows:
* SB-dom. AGN = Starburst-dominated AGNs (24%)
* SB-cont. AGN = Starburst-contaminated AGNs (7%)
* Type-1 AGN = (21%)
* Type-2 AGN = (24%)
* NG hosting AGN = Normal Galaxy hosting AGN (24%)
C=============================================================================
C Loading file 'table1.dat' ! *Photometric redshifts and additional information
* derived from the SED fits of the 96 objects
* with single detections
C Format for file interpretation
1 format(
+ I3,1X,I6,1X,I1,1X,F8.4,1X,F7.4,1X,F5.3,2X,A1,2X,F4.2,1X,F4.2,
+ 1X,I3,1X,F4.2,1X,F5.2,1X,I2,1X,A14)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,96
read(1,'(A82)')ar__
read(ar__,1)
+ v_RRB2009_(i__),IRAC(i__),m_IRAC(i__),RAdeg(i__),DEdeg(i__),
+ zsp(i__),q_zsp(i__),zph(i__),chi2(i__),prFit(i__),AV(i__),
+ nuLnu(i__),Temp(i__),Group(i__)
if(ar__(12:12) .EQ. '') m_IRAC(i__) = iNULL__
if (idig(ar__(31:35)).EQ.0) zsp(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ v_RRB2009_(i__),IRAC(i__),m_IRAC(i__),RAdeg(i__),DEdeg(i__),
+ zsp(i__),q_zsp(i__),zph(i__),chi2(i__),prFit(i__),AV(i__),
+ nuLnu(i__),Temp(i__),Group(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Morphological classification of the 20 objects
* with double detections. Description of the IR
* contribution of each member in a pair is reported
C Format for file interpretation
2 format(I3,1X,I6,1X,A8,1X,A10,1X,A68)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,20
read(1,'(A99)')ar__1
read(ar__1,2)
+ v_RRB2009__1(i__),IRAC_1(i__),s1(i__),s2(i__),Com(i__)
c ..............Just test output...........
write(6,2)
+ v_RRB2009__1(i__),IRAC_1(i__),s1(i__),s2(i__),Com(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! *Photometric redshifts and additional information
* derived from the SED fits of the 20 objects
* with double detections
C Format for file interpretation
3 format(
+ I3,1X,I6,1X,I1,1X,F8.4,1X,F7.4,1X,F5.3,2X,A1,2X,F4.2,1X,F4.2,
+ 1X,I3,1X,F4.2,1X,F5.2,1X,I2,1X,A14)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,23
read(1,'(A82)')ar__2
read(ar__2,3)
+ v_RRB2009__2(i__),IRAC_2(i__),m_IRAC_1(i__),RAdeg_1(i__),
+ DEdeg_1(i__),zsp_1(i__),q_zsp_1(i__),zph_1(i__),chi2_1(i__),
+ prFit_1(i__),AV_1(i__),nuLnu_1(i__),Temp_1(i__),Group_1(i__)
if(ar__2(12:12) .EQ. '') m_IRAC_1(i__) = iNULL__
if (idig(ar__2(31:35)).EQ.0) zsp_1(i__) = rNULL__
c ..............Just test output...........
write(6,3)
+ v_RRB2009__2(i__),IRAC_2(i__),m_IRAC_1(i__),RAdeg_1(i__),
+ DEdeg_1(i__),zsp_1(i__),q_zsp_1(i__),zph_1(i__),chi2_1(i__),
+ prFit_1(i__),AV_1(i__),nuLnu_1(i__),Temp_1(i__),Group_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end
C Locate position of first digit in string; or return 0
integer function idig(c)
character*(*) c
character*1 c1
integer lc,i
lc=len(c)
idig=0
do i=1,lc
if(c(i:i).ne.' ') go to 1
end do
1 if(i.gt.lc) return
c1=c(i:i)
if(c1.eq.'.'.or.c1.eq.'-'.or.c1.eq.'+') i=i+1
if(i.gt.lc) return
c1=c(i:i)
if(c1.ge.'0'.and.c1.le.'9') idig=i
return
end