Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/128/1002 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.5, on 2013-May-24
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__
ter (rNULL__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/AJ/128/1002 SDSS candidate type II quasars. II (Zakamska+, 2004)
*================================================================================
*Candidate type II quasars from the Sloan Digital Sky Survey.
*II. From radio to x-rays.
* Zakamska N.L., Strauss M.A., Heckman T.M., Ivezic Z., Krolik J.H.
* <Astron. J., 128, 1002-1016 (2004)>
* =2004AJ....128.1002Z
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! FIRST Matches of Type II AGNs
integer*4 nr__
parameter (nr__=143) ! Number of records
character*63 ar__ ! Full-size record
character*19 SDSS ! SDSS Name, based on J2000.0 position (G1)
real*4 z ! Redshift
real*4 logLum ! ([solLum]) Log of [OIII]{lambda}(5007) luminosity in
* solar units
real*4 F20cmc ! (mJy) FIRST (20cm) core flux (1.5GHz)
real*4 F20cmt ! (mJy) 20cm total flux
real*4 Sp_Index ! ? Spectral index
integer*4 Morph ! [1/2] Morphology code (1)
character*4 Ref ! References (2)
*Note (1): The morphology code is defined as follows:
* 1 = Unresolved by FIRST (Cat. <VIII/71>) and NVSS (Cat. <VIII/65>);
* 2 = Resolved by FIRST (Cat. <VIII/71>) or NVSS (Cat. <VIII/65>).
*Note (2): References:
* 1 = Condon et al. 1998, Cat. <VIII/65> (NVSS)--if this reference is listed
* it means that the total flux was taken from the NVSS;
* 2 = Gregory et al. 1996, Cat. <VIII/40> (GB6);
* 3 = Rengelink et al. 1997, Cat. <J/A+AS/124/259> (WENSS);
* 4 = Other (NED).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Radio Matches of Type II AGNs Not Covered by FIRST
integer*4 nr__1
parameter (nr__1=5) ! Number of records
character*69 ar__1 ! Full-size record
character*19 SDSS_1 ! SDSS Name, based on J2000.0 position (G1)
real*4 z_1 ! Redshift
real*4 logLum_1 ! ([solLum]) Log of [OIII]{lambda}(5007) luminosity in
* solar units
real*4 Offset ! (arcmin) Offset between the optical and radio position
real*4 F1_4GHz ! (mJy) Flux density at 1.4GHz
real*4 Sp_Index_1 ! ? Spectral Index
integer*4 Morph_1 ! [1/2] Morphology code (1)
character*10 Ref_1 ! References (2)
*Note (1): The morphology code is based on the NVSS (Cat. <VIII/65>)
* images and defined as follows:
* 1 = a point source;
* 2 = an extended source.
*Note (2): References:
* 1 = Condon et al. 1998, Cat. <VIII/65>;
* 2 = Gregory et al. 1996, Cat. <VIII/40>;
* 3 = Rengelink et al. 1997, Cat. <J/A+AS/124/259>;
* 4 = other (NED).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! IRAS Counterparts of Type II AGNs
integer*4 nr__2
parameter (nr__2=74) ! Number of records
character*64 ar__2 ! Full-size record
character*19 SDSS_2 ! SDSS Name, based on J2000.0 position (G1)
real*4 z_2 ! Redshift
real*4 logLum_2 ! ([solLum]) Log of [OIII]{lambda}(5007) luminosity in
* solar units
integer*4 F60um ! (mJy) ? Flux at 60 microns
integer*4 e_F60um ! (mJy) ? Nominal error in F60um
real*4 c60um ! ? Confidence level of the 60 micron detection
integer*4 F100um ! (mJy) ? Flux at 100 microns
integer*4 e_F100um ! (mJy) ? Nominal error in F100um
real*4 c100um ! ? Confidence level of the 100 micron detection
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! RASS Counterparts of Type II AGNs
integer*4 nr__3
parameter (nr__3=6) ! Number of records
character*72 ar__3 ! Full-size record
character*19 SDSS_3 ! SDSS Name, based on J2000.0 position (G1)
real*4 z_3 ! Redshift
real*4 logLum_3 ! ([solLum]) Log of [OIII]{lambda}(5007) luminosity in
* solar units
real*4 Offset_1 ! (arcmin) Offset between the SDSS and the RASS positions
real*4 CR ! (ct/s) Count rate
real*4 HR1 ! Hardness ratio 1 (1)
real*4 HR2 ! Hardness ratio 2 (1)
real*4 logLX ! ([10-7W]) log(L_X_) in units of erg/s
character*3 Com ! [yes no] Radio-loud ?
*Note (1): Hardness ratios HR1 and HR2 are defined in Voges et al.
* (1999, Cat. <IX/10A>). From the source counts in the band A and the
* band B HR1 is given by: HR1=(B-A)/(B+A). HR2 is determined from the
* source counts in the bands C and D by: HR2=(D-C)/(D+C). Since
* background subtraction is involved, the source counts in some bands
* may be negative. Both values can vary between -1 and 1.
C=============================================================================
C Loading file 'table1.dat' ! FIRST Matches of Type II AGNs
C Format for file interpretation
1 format(
+ 5X,A19,1X,F5.3,1X,F5.2,1X,F6.1,1X,F6.1,1X,F4.1,1X,I1,1X,A4)
C Effective file loading
open(unit=1,file='table1.dat', status='old')
write(6,*) '....Loading file: table1.dat'
do i__=1,143
read(1,'(A63)')ar__
read(ar__,1)SDSS,z,logLum,F20cmc,F20cmt,Sp_Index,Morph,Ref
if(ar__(52:55) .EQ. '') Sp_Index = rNULL__
c ..............Just test output...........
write(6,1)SDSS,z,logLum,F20cmc,F20cmt,Sp_Index,Morph,Ref
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Radio Matches of Type II AGNs Not Covered by FIRST
C Format for file interpretation
2 format(
+ 5X,A19,2X,F5.3,2X,F4.2,2X,F3.1,2X,F5.1,1X,F4.1,2X,I1,2X,A10)
C Effective file loading
open(unit=1,file='table2.dat', status='old')
write(6,*) '....Loading file: table2.dat'
do i__=1,5
read(1,'(A69)')ar__1
read(ar__1,2)
+ SDSS_1,z_1,logLum_1,Offset,F1_4GHz,Sp_Index_1,Morph_1,Ref_1
if(ar__1(51:54) .EQ. '') Sp_Index_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ SDSS_1,z_1,logLum_1,Offset,F1_4GHz,Sp_Index_1,Morph_1,Ref_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! IRAS Counterparts of Type II AGNs
C Format for file interpretation
3 format(
+ 5X,A19,1X,F5.3,1X,F5.2,1X,I3,1X,I2,1X,F4.2,1X,I4,1X,I3,1X,F4.2)
C Effective file loading
open(unit=1,file='table3.dat', status='old')
write(6,*) '....Loading file: table3.dat'
do i__=1,74
read(1,'(A64)')ar__2
read(ar__2,3)
+ SDSS_2,z_2,logLum_2,F60um,e_F60um,c60um,F100um,e_F100um,c100um
if(ar__2(38:40) .EQ. '') F60um = iNULL__
if(ar__2(42:43) .EQ. '') e_F60um = iNULL__
if(ar__2(45:48) .EQ. '') c60um = rNULL__
if(ar__2(50:53) .EQ. '') F100um = iNULL__
if(ar__2(55:57) .EQ. '') e_F100um = iNULL__
if(ar__2(59:62) .EQ. '') c100um = rNULL__
c ..............Just test output...........
write(6,3)
+ SDSS_2,z_2,logLum_2,F60um,e_F60um,c60um,F100um,e_F100um,c100um
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! RASS Counterparts of Type II AGNs
C Format for file interpretation
4 format(
+ 5X,A19,2X,F5.3,2X,F4.2,2X,F4.2,2X,F5.3,2X,F3.1,2X,F3.1,2X,
+ F5.2,2X,A3)
C Effective file loading
open(unit=1,file='table4.dat', status='old')
write(6,*) '....Loading file: table4.dat'
do i__=1,6
read(1,'(A72)')ar__3
read(ar__3,4)SDSS_3,z_3,logLum_3,Offset_1,CR,HR1,HR2,logLX,Com
c ..............Just test output...........
write(6,4)SDSS_3,z_3,logLum_3,Offset_1,CR,HR1,HR2,logLX,Com
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end