Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/140/403 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-20
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/140/403 SDSS Quasar Lens Search. IV. (Inada+, 2010)
*================================================================================
*The Sloan Digital Sky Survey Quasar Lens Search.
*IV. Statistical lens sample from the fifth data release.
* Inada N., Oguri M., Shin M.-S., Kayo I., Strauss M.A., Hennawi J.F.,
* Morokuma T., Becker R.H., White R.L., Kochanek C.S., Gregg M.D., Chiu K.,
* Johnston D.E., Clocchiatti A., Richards G.T., Schneider D.P., Frieman J.A.,
* Fukugita M., Gott J.R., Hall P.B., York D.G., Castander F.J., Bahcall N.A.
* <Astron. J., 140, 403-415 (2010)>
* =2010AJ....140..403I
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Morphologically Selected Candidates
integer*4 nr__
parameter (nr__=50) ! Number of records
character*109 ar__ ! Full-size record
character*19 SDSS ! SDSS name (JHHMMSS.ss+DDMMSS.s)
real*4 z ! Redshift from the SDSS DR5 quasar catalog
real*4 imag ! (mag) i-Band PSF magnitude with Galactic extinction
* corrections from the SDSS DR5 quasar catalog
real*4 theta ! (arcsec) Image separations ({theta}_SDSS_)
real*4 Di ! (mag) Absolute i-band magnitude differences {Delta}i
* between the expected two components (1)
character*28 Image ! Instruments (and filters) used for the
* follow-up observations (2)
character*2 Spec ! Spectroscope used (2)
character*27 Com ! Comment
integer*4 Ref ! ? Reference, in refs.dat file
*Note (1): derived from fitting the SDSS i-band image of each candidate with
* two PSFs using GALFIT.
*Note (2): Instruments (and filters) are:
* UF = UFTI at UKIRT
* 8k = UH8k at UH88
* Te = Tek2k CCD at UH88
* Op = Optic CCD at UH88
* QU = QUIRC at UH88
* WF = WFGS2 at UH88
* RE = RETROCAM at MDM 2.4m
* ES = ESI at Keck
* NR = NIRC at Keck
* EF = EFOSC2 at ESO 3.6m
* NF = NICFPS at ARC 3.5m
* DA = DIS III at ARC 3.5m
* FO = FOCAS at Subaru
* Ma = MagIC at WB 6.5m
* MM = MiniMo at WIYN.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Color-selected Candidates
integer*4 nr__1
parameter (nr__1=174) ! Number of records
character*113 ar__1 ! Full-size record
character*19 SDSS_1 ! SDSS name (JHHMMSS.ss+DDMMSS.s) (1)
real*4 z_1 ! ? Redshift from the SDSS DR5 quasar catalog
real*4 imag_1 ! (mag) i-Band PSF magnitude with Galactic extinction
* corrections from the SDSS DR5 quasar catalog
real*4 theta_1 ! (arcsec) ? Image separations ({theta}_SDSS_) between the
* two components from the SDSS imaging data
character*17 Src ! Instruments (and filters) used for the
* follow-up observations (2)
character*1 n_Src ! [e] e: The data are obtained from the SMOKA
* (Baba et al. 2002, ASP Conf. Ser. 281, 298)
character*5 Spec_1 ! Spectroscope used (2)
character*41 Com_1 ! Comment
character*3 Ref_1 ! Reference(s), in refs.dat file
*Note (1): Two candidates, SDSS J080623.70+200631.8 and
* SDSS J145307.06+331950.5, that are identified by the morphological
* selection algorithm as well, are listed in Table 2.
*Note (2): Instruments (filter) are:
* DA = DIS III at ARC 3.5m
* NF = NICFPS at ARC 3.5m
* SP = SPIcam at ARC 3.5m
* UF = UFTI at UKIRT
* Te = Tek2k CCD at UH88
* 8k = UH8k at UH88
* WF = WFGS2 at UH88
* QU = QUIRC at UH88
* FO = FOCAS at Subaru
* LR = LRIS at Keck
* DO = DOLORES at TNG 3.6m
* CI = CCD Imager at KPNO 2.1m
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! DR5 Statistical Sample
integer*4 nr__2
parameter (nr__2=19) ! Number of records
character*86 ar__2 ! Full-size record
character*10 SDSS_2 ! SDSS (truncated) name (JHHMM+DDMM)
integer*4 Nimg ! Number of images
real*4 z_2 ! Source redshift from follow-up observations
real*4 zl ! ? Measured lens redshifts
real*4 MAG ! (mag) ? Absolute magnitudes of the detected
* (brightest) lens galaxies (1)
real*4 thetaM ! (arcsec) ? Maximum image separation {theta}_M_
real*4 Fratio ! Flux ratios between the brightest lensed
* image and the farthest lensed image from
* the brightest image, in the I-band images
character*3 Src_1 ! Source (DR3 or DR5)
character*23 Com_2 ! Comments
character*11 Ref_2 ! References, in refs.dat file
*Note (1): The combinations of evolution- and K-corrections are included
* (Poggianti, 1997, Cat. J/A+AS/122/399).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! DR5 Additional Lensed Quasars
integer*4 nr__3
parameter (nr__3=17) ! Number of records
character*112 ar__3 ! Full-size record
character*10 SDSS_3 ! SDSS (truncated) name (JHHMM+DDMM)
integer*4 Nimg_1 ! Number of images
real*4 z_3 ! Source redshift from follow-up observations
real*4 zl_1 ! ? Measured lens redshift
real*4 thetaM_1 ! (arcsec) ? Maximum image separation {theta}_M_
real*4 Fratio_1 ! Flux ratio between the brightest lensed image
* and the farthest lensed image from the
* brightest image, in the I-band images
character*3 Src_2 ! SDSS source (DR3 or DR5)
character*26 Com_3 ! Comments
character*29 Rej ! The reason that each lens is excluded from
* the statistical sample
character*11 Ref_3 ! References, in refs.dat file
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References
integer*4 nr__4
parameter (nr__4=55) ! Number of records
character*103 ar__4 ! Full-size record
integer*4 Ref_4 ! Reference number
character*19 BibCode ! BibCode
character*21 Aut ! Author's name
character*58 Com_4 ! Comments
C=============================================================================
C Loading file 'table2.dat' ! Morphologically Selected Candidates
C Format for file interpretation
1 format(
+ 5X,A19,1X,F5.3,1X,F5.2,1X,F4.2,1X,F4.2,1X,A28,1X,A2,2X,A27,1X,
+ I1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,50
read(1,'(A109)')ar__
read(ar__,1)SDSS,z,imag,theta,Di,Image,Spec,Com,Ref
if(ar__(109:109) .EQ. '') Ref = iNULL__
c ..............Just test output...........
write(6,1)SDSS,z,imag,theta,Di,Image,Spec,Com,Ref
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Color-selected Candidates
C Format for file interpretation
2 format(
+ 5X,A19,1X,F5.3,1X,F5.2,1X,F5.2,1X,A17,A1,1X,A5,1X,A41,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,174
read(1,'(A113)')ar__1
read(ar__1,2)
+ SDSS_1,z_1,imag_1,theta_1,Src,n_Src,Spec_1,Com_1,Ref_1
if(ar__1(26:30) .EQ. '') z_1 = rNULL__
if(ar__1(38:42) .EQ. '') theta_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ SDSS_1,z_1,imag_1,theta_1,Src,n_Src,Spec_1,Com_1,Ref_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! DR5 Statistical Sample
C Format for file interpretation
3 format(
+ 5X,A10,1X,I1,1X,F5.3,1X,F5.3,1X,F5.1,1X,F5.2,1X,F4.2,1X,A3,1X,
+ A23,1X,A11)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,19
read(1,'(A86)')ar__2
read(ar__2,3)
+ SDSS_2,Nimg,z_2,zl,MAG,thetaM,Fratio,Src_1,Com_2,Ref_2
if(ar__2(25:29) .EQ. '') zl = rNULL__
if(ar__2(31:35) .EQ. '') MAG = rNULL__
if(ar__2(37:41) .EQ. '') thetaM = rNULL__
c ..............Just test output...........
write(6,3)
+ SDSS_2,Nimg,z_2,zl,MAG,thetaM,Fratio,Src_1,Com_2,Ref_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! DR5 Additional Lensed Quasars
C Format for file interpretation
4 format(
+ 5X,A10,1X,I1,1X,F5.3,1X,F5.3,1X,F4.2,1X,F4.2,1X,A3,1X,A26,1X,
+ A29,1X,A11)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,17
read(1,'(A112)')ar__3
read(ar__3,4)
+ SDSS_3,Nimg_1,z_3,zl_1,thetaM_1,Fratio_1,Src_2,Com_3,Rej,Ref_3
if(ar__3(25:29) .EQ. '') zl_1 = rNULL__
if(ar__3(31:34) .EQ. '') thetaM_1 = rNULL__
c ..............Just test output...........
write(6,4)
+ SDSS_3,Nimg_1,z_3,zl_1,thetaM_1,Fratio_1,Src_2,Com_3,Rej,Ref_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References
C Format for file interpretation
5 format(I2,1X,A19,1X,A21,1X,A58)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,55
read(1,'(A103)')ar__4
read(ar__4,5)Ref_4,BibCode,Aut,Com_4
c ..............Just test output...........
write(6,5)Ref_4,BibCode,Aut,Com_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end