Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/501/461 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 2026-Oct-11
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/A+A/501/461 Photometric masses of early-type lens galaxies (Grillo+, 2009)
*================================================================================
*Photometric mass and mass decomposition in early-type lens galaxies.
* Grillo C., Gobat R., Lombardi M., Rosati P.
* <Astron. Astrophys., 501, 461-474 (2009)>
* =2009A&A...501..461G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! The relevant spectroscopic and photometric
measurements of the 57 early-type grade-A lens
galaxies of the SLACS survey
integer*4 nr__
parameter (nr__=57) ! Number of records
character*97 ar__ ! Full-size record
character*10 SLACS ! System name (JHHMM+DDMM)
real*4 zl ! Lens redshift
real*4 zs ! Source redshift
real*4 thetaE ! (arcsec) Einstein angle of the lensing systems
real*4 thetae_1 ! (arcsec) Effective angle of the lensing systems
real*4 umag ! (mag) SDSS u magnitude (1)
real*4 e_umag ! (mag) rms uncertainty on umag
real*4 gmag ! (mag) SDSS g magnitude (1)
real*4 e_gmag ! (mag) rms uncertainty on gmag
real*4 rmag ! (mag) SDSS r magnitude (1)
real*4 e_rmag ! (mag) rms uncertainty on rmag
real*4 imag ! (mag) SDSS i magnitude (1)
real*4 e_imag ! (mag) rms uncertainty on imag
real*4 zmag ! (mag) SDSS u magnitude (1)
real*4 e_zmag ! (mag) rms uncertainty on imag
*Note (1): Magnitudes are extinction-corrected modelMag (AB) from the SDSS.
* References: Bolton et al. (2008, Cat. J/ApJ/682/964).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! The photometric and lensing mass measurements of
the 57 early-type grade-A lens galaxies of
the SLACS survey
integer*4 nr__1
parameter (nr__1=57) ! Number of records
character*92 ar__1 ! Full-size record
character*10 SLACS_1 ! System name (JHHMM+DDMM)
integer*4 MSalBC ! (10+10solMass) Photometric mass from Sal,BC model (1)
integer*4 E_MSalBC ! (10+10solMass) Error on MSalBC (upper limit)
integer*4 e_MSalBC_1 ! (10+10solMass) Error on MSalBC (lower limit)
integer*4 MSalM ! (10+10solMass) Photometric mass from Sal,M model (1)
integer*4 E_MSalM ! (10+10solMass) Error on MSalM (upper limit)
integer*4 e_MSalM_1 ! (10+10solMass) Error on MSalM (lower limit)
integer*4 MChaBC ! (10+10solMass) Photometric mass from Cha,BC model (1)
integer*4 E_MChaBC ! (10+10solMass) Error on MChaBC (upper limit)
integer*4 e_MChaBC_1 ! (10+10solMass) Error on MChaBC (lower limit)
integer*4 MKroM ! (10+10solMass) Photometric mass from Kro,M model (1)
integer*4 E_MKroM ! (10+10solMass) Error on MKroM (upper limit)
integer*4 e_MKroM_1 ! (10+10solMass) Error on MKroM (lower limit)
real*4 fap ! Aperture factor
integer*4 MSalBC2 ! (10+10solMass) Photometric mass from Sal,BC model,
* for R<=R_Ein_ (1)
integer*4 E_MSalBC2 ! (10+10solMass) Error on MSalBC2 (upper limit)
integer*4 e_MSalBC2_1 ! (10+10solMass) Error on MSalBC2 (lower limit)
integer*4 MSalM2 ! (10+10solMass) Photometric mass from Sal,M model
* for R<=R_Ein_ (1)
integer*4 E_MSalM2 ! (10+10solMass) Error on MSalM2 (upper limit)
integer*4 e_MSalM2_1 ! (10+10solMass) Error on MSalM2 (lower limit)
integer*4 MChaBC2 ! (10+10solMass) Photometric mass from Cha,BC model
* for R<=R_Ein_ (1)
integer*4 E_MChaBC2 ! (10+10solMass) Error on MChaBC2 (upper limit)
integer*4 e_MChaBC2_1 ! (10+10solMass) Error on MChaBC2 (lower limit)
integer*4 MKroM2 ! (10+10solMass) Photometric mass from Kro,M model
* for R<=R_Ein_ (1)
integer*4 E_MKroM2 ! (10+10solMass) Error on MKroM2 (upper limit)
integer*4 e_MKroM2_1 ! (10+10solMass) Error on MKroM2 (lower limit)
integer*4 Mtotlen ! (10+10solMass) Total mass from gravitational lensing
* for R<=R_Ein_
integer*4 e_Mtotlen ! (10+10solMass) rms uncertainty on Mtotlen
*Note (1): Models are:
* Sal,BC = Salpeter (1955ApJ...121..161S) IMF,
* Bruzual & Charlot (2003MNRAS.344.1000B) model
* Sal,M = Salpeter (1955ApJ...121..161S) IMF,
* Maraston (2005MNRAS.362..799M) model
* Cha,BC = Chabrier (2003PASP..115..763C) IMF,
* Bruzual & Charlot (2003MNRAS.344.1000B) model
* Kro,M = Kroupa (2001MNRAS.322..231K) IMF,
* Maraston (2003MNRAS.344.1000B) model
C=============================================================================
C Loading file 'table1.dat' ! The relevant spectroscopic and photometric
* measurements of the 57 early-type grade-A lens
* galaxies of the SLACS survey
C Format for file interpretation
1 format(
+ A10,1X,F5.3,1X,F5.3,1X,F4.2,1X,F4.2,1X,F6.3,1X,F5.3,1X,F6.3,
+ 1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,57
read(1,'(A97)')ar__
read(ar__,1)
+ SLACS,zl,zs,thetaE,thetae_1,umag,e_umag,gmag,e_gmag,rmag,
+ e_rmag,imag,e_imag,zmag,e_zmag
c ..............Just test output...........
write(6,1)
+ SLACS,zl,zs,thetaE,thetae_1,umag,e_umag,gmag,e_gmag,rmag,
+ e_rmag,imag,e_imag,zmag,e_zmag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! The photometric and lensing mass measurements of
* the 57 early-type grade-A lens galaxies of
* the SLACS survey
C Format for file interpretation
2 format(
+ A10,1X,I3,1X,I2,1X,I2,1X,I3,1X,I2,1X,I2,1X,I2,1X,I2,1X,I2,1X,
+ I2,1X,I2,1X,I2,1X,F4.2,1X,I2,1X,I2,1X,I2,1X,I2,1X,I2,1X,I2,1X,
+ I2,1X,I1,1X,I1,1X,I2,1X,I2,1X,I2,1X,I2,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,57
read(1,'(A92)')ar__1
read(ar__1,2)
+ SLACS_1,MSalBC,E_MSalBC,e_MSalBC_1,MSalM,E_MSalM,e_MSalM_1,
+ MChaBC,E_MChaBC,e_MChaBC_1,MKroM,E_MKroM,e_MKroM_1,fap,
+ MSalBC2,E_MSalBC2,e_MSalBC2_1,MSalM2,E_MSalM2,e_MSalM2_1,
+ MChaBC2,E_MChaBC2,e_MChaBC2_1,MKroM2,E_MKroM2,e_MKroM2_1,
+ Mtotlen,e_Mtotlen
c ..............Just test output...........
write(6,2)
+ SLACS_1,MSalBC,E_MSalBC,e_MSalBC_1,MSalM,E_MSalM,e_MSalM_1,
+ MChaBC,E_MChaBC,e_MChaBC_1,MKroM,E_MKroM,e_MKroM_1,fap,
+ MSalBC2,E_MSalBC2,e_MSalBC2_1,MSalM2,E_MSalM2,e_MSalM2_1,
+ MChaBC2,E_MChaBC2,e_MChaBC2_1,MKroM2,E_MKroM2,e_MKroM2_1,
+ Mtotlen,e_Mtotlen
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end