Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/133/186 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-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/AJ/133/186 Optical spectroscopy of 77 luminous AGNs and QSOs (Lacy+, 2007)
*================================================================================
*Optical spectroscopy and X-ray detections of a sample of quasars and active
*galactic nuclei selected in the mid-infrared from two Spitzer space telescope
*wide-area surveys.
* Lacy M., Petric A.O., Sajina A., Canalizo G., Storrie-Lombardi L.J.,
* Armus L., Fadda D., Marleau F.R.
* <Astron. J., 133, 186-205 (2007)>
* =2007AJ....133..186L
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Observing Log for the XFLS AGN Sample
integer*4 nr__
parameter (nr__=33) ! Number of records
character*79 ar__ ! Full-size record
character*26 Name (nr__) ! Name (1)
character*10 Obs_date (nr__) ! ("YYYY/MM/DD") Observation date
character*21 Tel (nr__) ! Telescope/instrument (2)
character*7 Exp (nr__) ! Exposure Time (NNxNNNN with NNNN in seconds)
real*4 Slit (nr__) ! Slit designation (width?)
real*4 AirMass (nr__) ! Air Mass
integer*4 PA (nr__) ! (deg) Position angle of slit
*Note (1): In table1, SSTXFLS JHHMMSS.s+DDMMSS,
* SSTXFLS24 JHHMMSS.s+DDMMSS in Simbad
* In table2, SWIRE2 JHHMMSS.ss+DDMMSS.s,
* SWIRE JHHMMSS.ss+DDMMSS.s in Simbad
*Note (2): Most of the observations were made with the Cosmis intrument on
* the Palomar 200-inch telescope. Some spectra were obtained with the
* ISIS instrument at the 4.2m william Herschel Telescope (WHT) at La
* Palma, with ESI at the KeckII telescopie, or with the 3m Shane
* Telescope at Lick Observatory. DbleSpec = Double Spectrograph
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Observing Log for the SWIRE XMM-LSS Sample
integer*4 nr__1
parameter (nr__1=31) ! Number of records
character*79 ar__1 ! Full-size record
character*26 Name_1 (nr__1) ! Name (1)
character*10 Obs_date_1 (nr__1) ! ("YYYY/MM/DD") Observation date
character*21 Tel_1 (nr__1) ! Telescope/instrument (2)
character*7 Exp_1 (nr__1) ! Exposure Time (NNxNNNN with NNNN in seconds)
real*4 Slit_1 (nr__1) ! Slit designation (width?)
real*4 AirMass_1 (nr__1) ! Air Mass
integer*4 PA_1 (nr__1) ! (deg) Position angle of slit
*Note (1): In table1, SSTXFLS JHHMMSS.s+DDMMSS,
* SSTXFLS24 JHHMMSS.s+DDMMSS in Simbad
* In table2, SWIRE2 JHHMMSS.ss+DDMMSS.s,
* SWIRE JHHMMSS.ss+DDMMSS.s in Simbad
*Note (2): Most of the observations were made with the Cosmis intrument on
* the Palomar 200-inch telescope. Some spectra were obtained with the
* ISIS instrument at the 4.2m william Herschel Telescope (WHT) at La
* Palma, with ESI at the KeckII telescopie, or with the 3m Shane
* Telescope at Lick Observatory. DbleSpec = Double Spectrograph
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Bright AGNs in the XFLS Region
integer*4 nr__2
parameter (nr__2=43) ! Number of records
character*98 ar__2 ! Full-size record
character*26 Name_2 (nr__2) ! Name (1)
character*1 n_Name (nr__2) ! [*] * : spectrum from Papovich et al.
* (2006, Cat. J/AJ/132/231)
real*4 S24um (nr__2) ! (mJy) Flux at 24um
real*4 z (nr__2) ! Redshift
character*1 n_z (nr__2) ! [?+] Note on Redshift (2)
character*6 Class (nr__2) ! Classification (G1)
character*48 Basis (nr__2) ! Classification basis (3)
character*1 n_Basis (nr__2) ! [ab] Note (4)
*Note (1): In table3, SDSS JHHMMSS.s+DDMMSS or
* SSTXFLS JHHMMSS.s+DDMMSS (SSTXFLS24 JHHMMSS.s+DDMMSS in Simbad)
* In table4, SWIRE2 JHHMMSS.ss+DDMMSS.s,
* SWIRE JHHMMSS.ss+DDMMSS.s in Simbad
*Note (2): Note on redshift as follows:
* + = indicates that the optical/near-infrared redshift is uncertain,
* but a Spitzer mid-infrared spectrum shows silicate absorption
* at z=0.84 (M. Lacy et al. 2007, in preparation).
* ? = uncertainty flag
*Note (3): BL for Objects with line widths of at least
* one permitted emission line >3000km/s.
*Note (4): Notes as follows:
* a = LoBAL: Low-ionization broad absorption line.
* b = classification based on the Papovich et al. (2006,
* Cat. J/AJ/132/231) spectrum; see Appendix A.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Bright AGNs in the SWIRE XMM-LSS Region
integer*4 nr__3
parameter (nr__3=34) ! Number of records
character*98 ar__3 ! Full-size record
character*26 Name_3 (nr__3) ! Name (1)
character*1 n_Name_1 (nr__3) ! [*] * : spectrum from Papovich et al.
* (2006, Cat. J/AJ/132/231)
real*4 S24um_1 (nr__3) ! (mJy) Flux at 24um
real*4 z_1 (nr__3) ! Redshift
character*1 n_z_1 (nr__3) ! [?+] Note on Redshift (2)
character*6 Class_1 (nr__3) ! Classification (G1)
character*48 Basis_1 (nr__3) ! Classification basis (3)
character*1 n_Basis_1 (nr__3) ! [ab] Note (4)
*Note (1): In table3, SDSS JHHMMSS.s+DDMMSS or
* SSTXFLS JHHMMSS.s+DDMMSS (SSTXFLS24 JHHMMSS.s+DDMMSS in Simbad)
* In table4, SWIRE2 JHHMMSS.ss+DDMMSS.s,
* SWIRE JHHMMSS.ss+DDMMSS.s in Simbad
*Note (2): Note on redshift as follows:
* + = indicates that the optical/near-infrared redshift is uncertain,
* but a Spitzer mid-infrared spectrum shows silicate absorption
* at z=0.84 (M. Lacy et al. 2007, in preparation).
* ? = uncertainty flag
*Note (3): BL for Objects with line widths of at least
* one permitted emission line >3000km/s.
*Note (4): Notes as follows:
* a = LoBAL: Low-ionization broad absorption line.
* b = classification based on the Papovich et al. (2006,
* Cat. J/AJ/132/231) spectrum; see Appendix A.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! XMM-Newton Detections of AGNs in the SWIRE Field
integer*4 nr__4
parameter (nr__4=21) ! Number of records
character*86 ar__4 ! Full-size record
character*26 Name_4 (nr__4) ! Name (SWIRE2 JHHMMSS.ss+DDMMSS.s) (1)
real*4 z_2 (nr__4) ! Redshift
character*1 u_z (nr__4) ! [?] Uncertainty flag on z
character*6 Class_2 (nr__4) ! Optical class (G1)
character*10 ObsID (nr__4) ! ObsID
integer*4 ExpTime (nr__4) ! (s) Exposure time
character*4 Cam (nr__4) ! Camera
character*2 l_Counts (nr__4) ! [~< ] Limit flag on Counts
integer*4 Counts (nr__4) ! (ct) X-ray counts
character*4 r_Counts (nr__4) ! Source of counts (PPS, 1XMM or 2XMM)
character*2 l_SX (nr__4) ! [~< ] Limit flag on SX
real*4 SX (nr__4) ! (10-17W/m2) Flux in 0.2-12keV band (10^-14^erg/cm2/s)
*Note (1): SWIRE JHHMMSS.ss+DDMMSS.s in Simbad
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! The 50 Brightest Extragalactic 24um Sources in
the XFLS with Four-Band IRAC Coverage
integer*4 nr__5
parameter (nr__5=50) ! Number of records
character*112 ar__5 ! Full-size record
character*26 Name_5 (nr__5) ! Name (SDSS JHHMMSS.s+DDMMSS or
* SSTXFLS JHHMMSS.s+DDMMSS)(1)
character*1 n_Name_2 (nr__5) ! [+] + for parts of a single galaxy
real*4 S24um_2 (nr__5) ! (mJy) Flux at 24um
real*4 Rmag (nr__5) ! (mag) R magnitude
character*4 Spect (nr__5) ! Provenance of spectra (2)
real*4 z_3 (nr__5) ! Redshift
character*1 u_z_1 (nr__5) ! [?] Uncertainty flag on z
character*6 Class_3 (nr__5) ! Classification (G1)
character*48 Basis_2 (nr__5) ! Classification basis (3)
character*3 IRAC (nr__5) ! [Yes/No ] IRAC-selected AGN?
*Note (1): For SSTXFLS JHHMMSS.s+DDMMSS, SSTXFLS24 JHHMMSS.s+DDMMSS in Simbad
*Note (2): Provenance of spectra as follows:
* L06 = this paper
* L06* = this paper, additional spectra obtained using COSMIC on the
* Palomar 200 inch telescope, 2005 June 27-28
* P06 = Papovich et al. (2006, Cat. J/AJ/132/231)
* SDSS = SDSS Data Release 4
*Note (3): BL for Objects with line widths of at least
* one permitted emission line >3000km/s.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Non-SDSS Objects in the XFLS Sample with
Spectra in Papovich et al. (2006, J/AJ/132/231)
integer*4 nr__6
parameter (nr__6=17) ! Number of records
character*111 ar__6 ! Full-size record
character*26 Name_6 (nr__6) ! Name (SSTXFLS JHHMMSS.s+DDMMSS) (1)
real*4 S24um_3 (nr__6) ! (mJy) Flux at 24um
real*4 z_4 (nr__6) ! Redshift
character*6 Class_4 (nr__6) ! Classification (G1)
character*46 Basis_3 (nr__6) ! Classification basis
character*19 Class2 (nr__6) ! Papovich et al. (2006, Cat. J/AJ/132/231)
* classification (2)
*Note (1): SSTXFLS24 JHHMMSS.s+DDMMSS in Simbad
*Note (2): Classification of the object in the MMT Hectospec survey of
* Papovich et al. (2006, Cat. J/AJ/132/231), in the form class/subclass.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! *Objects in the 8um
integer*4 nr__7
parameter (nr__7=8) ! Number of records
character*87 ar__7 ! Full-size record
character*26 Name_7 (nr__7) ! Name (SSTXFLS JHHMMSS.s+DDMMSS) (1)
real*4 S8um (nr__7) ! (mJy) Flux at 8um
real*4 z_5 (nr__7) ! ? Redshift
character*1 u_z_2 (nr__7) ! [?] Uncertainty flag on z
character*1 n_z_2 (nr__7) ! [*] *: spectrum is from Papovich et al.
* (2006, Cat. J/AJ/132/231)
character*9 Class_5 (nr__7) ! Classification
character*38 Basis_4 (nr__7) ! Classification basis
*Note (1): SSTXFLS8 JHHMMSS.s+DDMMSS in Simbad.
C=============================================================================
C Loading file 'table1.dat' ! Observing Log for the XFLS AGN Sample
C Format for file interpretation
1 format(A26,1X,A10,1X,A21,A7,1X,F3.1,1X,F4.2,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,33
read(1,'(A79)')ar__
read(ar__,1)
+ Name(i__),Obs_date(i__),Tel(i__),Exp(i__),Slit(i__),
+ AirMass(i__),PA(i__)
c ..............Just test output...........
write(6,1)
+ Name(i__),Obs_date(i__),Tel(i__),Exp(i__),Slit(i__),
+ AirMass(i__),PA(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Observing Log for the SWIRE XMM-LSS Sample
C Format for file interpretation
2 format(A26,1X,A10,1X,A21,A7,1X,F3.1,1X,F4.2,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,31
read(1,'(A79)')ar__1
read(ar__1,2)
+ Name_1(i__),Obs_date_1(i__),Tel_1(i__),Exp_1(i__),Slit_1(i__),
+ AirMass_1(i__),PA_1(i__)
c ..............Just test output...........
write(6,2)
+ Name_1(i__),Obs_date_1(i__),Tel_1(i__),Exp_1(i__),Slit_1(i__),
+ AirMass_1(i__),PA_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Bright AGNs in the XFLS Region
C Format for file interpretation
3 format(A26,A1,1X,F4.1,1X,F5.3,A1,2X,A6,2X,A48,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,43
read(1,'(A98)')ar__2
read(ar__2,3)
+ Name_2(i__),n_Name(i__),S24um(i__),z(i__),n_z(i__),Class(i__),
+ Basis(i__),n_Basis(i__)
c ..............Just test output...........
write(6,3)
+ Name_2(i__),n_Name(i__),S24um(i__),z(i__),n_z(i__),Class(i__),
+ Basis(i__),n_Basis(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Bright AGNs in the SWIRE XMM-LSS Region
C Format for file interpretation
4 format(A26,A1,1X,F4.1,1X,F5.3,A1,2X,A6,2X,A48,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,34
read(1,'(A98)')ar__3
read(ar__3,4)
+ Name_3(i__),n_Name_1(i__),S24um_1(i__),z_1(i__),n_z_1(i__),
+ Class_1(i__),Basis_1(i__),n_Basis_1(i__)
c ..............Just test output...........
write(6,4)
+ Name_3(i__),n_Name_1(i__),S24um_1(i__),z_1(i__),n_z_1(i__),
+ Class_1(i__),Basis_1(i__),n_Basis_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! XMM-Newton Detections of AGNs in the SWIRE Field
C Format for file interpretation
5 format(
+ A26,1X,F5.3,A1,2X,A6,2X,A10,1X,I5,1X,A4,1X,A2,I5,1X,A4,1X,A2,
+ F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,21
read(1,'(A86)')ar__4
read(ar__4,5)
+ Name_4(i__),z_2(i__),u_z(i__),Class_2(i__),ObsID(i__),
+ ExpTime(i__),Cam(i__),l_Counts(i__),Counts(i__),r_Counts(i__),
+ l_SX(i__),SX(i__)
c ..............Just test output...........
write(6,5)
+ Name_4(i__),z_2(i__),u_z(i__),Class_2(i__),ObsID(i__),
+ ExpTime(i__),Cam(i__),l_Counts(i__),Counts(i__),r_Counts(i__),
+ l_SX(i__),SX(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! The 50 Brightest Extragalactic 24um Sources in
* the XFLS with Four-Band IRAC Coverage
C Format for file interpretation
6 format(
+ A26,A1,1X,F5.2,1X,F5.2,1X,A4,1X,F5.3,A1,1X,A6,2X,A48,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,50
read(1,'(A112)')ar__5
read(ar__5,6)
+ Name_5(i__),n_Name_2(i__),S24um_2(i__),Rmag(i__),Spect(i__),
+ z_3(i__),u_z_1(i__),Class_3(i__),Basis_2(i__),IRAC(i__)
c ..............Just test output...........
write(6,6)
+ Name_5(i__),n_Name_2(i__),S24um_2(i__),Rmag(i__),Spect(i__),
+ z_3(i__),u_z_1(i__),Class_3(i__),Basis_2(i__),IRAC(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Non-SDSS Objects in the XFLS Sample with
* Spectra in Papovich et al. (2006, J/AJ/132/231)
C Format for file interpretation
7 format(A26,1X,F4.1,1X,F5.3,1X,A6,1X,A46,1X,A19)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,17
read(1,'(A111)')ar__6
read(ar__6,7)
+ Name_6(i__),S24um_3(i__),z_4(i__),Class_4(i__),Basis_3(i__),
+ Class2(i__)
c ..............Just test output...........
write(6,7)
+ Name_6(i__),S24um_3(i__),z_4(i__),Class_4(i__),Basis_3(i__),
+ Class2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! *Objects in the 8um
C Format for file interpretation
8 format(A26,1X,F4.2,1X,F5.3,A1,A1,1X,A9,A38)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,8
read(1,'(A87)')ar__7
read(ar__7,8)
+ Name_7(i__),S8um(i__),z_5(i__),u_z_2(i__),n_z_2(i__),
+ Class_5(i__),Basis_4(i__)
if(ar__7(33:37) .EQ. '') z_5(i__) = rNULL__
c ..............Just test output...........
write(6,8)
+ Name_7(i__),S8um(i__),z_5(i__),u_z_2(i__),n_z_2(i__),
+ Class_5(i__),Basis_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end