Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/501/461 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 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 (nr__) ! System name (JHHMM+DDMM)
real*4 zl (nr__) ! Lens redshift
real*4 zs (nr__) ! Source redshift
real*4 thetaE (nr__) ! (arcsec) Einstein angle of the lensing systems
real*4 thetae_1 (nr__) ! (arcsec) Effective angle of the lensing systems
real*4 umag (nr__) ! (mag) SDSS u magnitude (1)
real*4 e_umag (nr__) ! (mag) rms uncertainty on umag
real*4 gmag (nr__) ! (mag) SDSS g magnitude (1)
real*4 e_gmag (nr__) ! (mag) rms uncertainty on gmag
real*4 rmag (nr__) ! (mag) SDSS r magnitude (1)
real*4 e_rmag (nr__) ! (mag) rms uncertainty on rmag
real*4 imag (nr__) ! (mag) SDSS i magnitude (1)
real*4 e_imag (nr__) ! (mag) rms uncertainty on imag
real*4 zmag (nr__) ! (mag) SDSS u magnitude (1)
real*4 e_zmag (nr__) ! (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 (nr__1) ! System name (JHHMM+DDMM)
integer*4 MSalBC (nr__1) ! (10+10solMass) Photometric mass from Sal,BC model (1)
integer*4 E_MSalBC (nr__1) ! (10+10solMass) Error on MSalBC (upper limit)
integer*4 e_MSalBC_1 (nr__1) ! (10+10solMass) Error on MSalBC (lower limit)
integer*4 MSalM (nr__1) ! (10+10solMass) Photometric mass from Sal,M model (1)
integer*4 E_MSalM (nr__1) ! (10+10solMass) Error on MSalM (upper limit)
integer*4 e_MSalM_1 (nr__1) ! (10+10solMass) Error on MSalM (lower limit)
integer*4 MChaBC (nr__1) ! (10+10solMass) Photometric mass from Cha,BC model (1)
integer*4 E_MChaBC (nr__1) ! (10+10solMass) Error on MChaBC (upper limit)
integer*4 e_MChaBC_1 (nr__1) ! (10+10solMass) Error on MChaBC (lower limit)
integer*4 MKroM (nr__1) ! (10+10solMass) Photometric mass from Kro,M model (1)
integer*4 E_MKroM (nr__1) ! (10+10solMass) Error on MKroM (upper limit)
integer*4 e_MKroM_1 (nr__1) ! (10+10solMass) Error on MKroM (lower limit)
real*4 fap (nr__1) ! Aperture factor
integer*4 MSalBC2 (nr__1) ! (10+10solMass) Photometric mass from Sal,BC model,
* for R<=R_Ein_ (1)
integer*4 E_MSalBC2 (nr__1) ! (10+10solMass) Error on MSalBC2 (upper limit)
integer*4 e_MSalBC2_1(nr__1) ! (10+10solMass) Error on MSalBC2 (lower limit)
integer*4 MSalM2 (nr__1) ! (10+10solMass) Photometric mass from Sal,M model
* for R<=R_Ein_ (1)
integer*4 E_MSalM2 (nr__1) ! (10+10solMass) Error on MSalM2 (upper limit)
integer*4 e_MSalM2_1 (nr__1) ! (10+10solMass) Error on MSalM2 (lower limit)
integer*4 MChaBC2 (nr__1) ! (10+10solMass) Photometric mass from Cha,BC model
* for R<=R_Ein_ (1)
integer*4 E_MChaBC2 (nr__1) ! (10+10solMass) Error on MChaBC2 (upper limit)
integer*4 e_MChaBC2_1(nr__1) ! (10+10solMass) Error on MChaBC2 (lower limit)
integer*4 MKroM2 (nr__1) ! (10+10solMass) Photometric mass from Kro,M model
* for R<=R_Ein_ (1)
integer*4 E_MKroM2 (nr__1) ! (10+10solMass) Error on MKroM2 (upper limit)
integer*4 e_MKroM2_1 (nr__1) ! (10+10solMass) Error on MKroM2 (lower limit)
integer*4 Mtotlen (nr__1) ! (10+10solMass) Total mass from gravitational lensing
* for R<=R_Ein_
integer*4 e_Mtotlen (nr__1) ! (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(i__),zl(i__),zs(i__),thetaE(i__),thetae_1(i__),
+ umag(i__),e_umag(i__),gmag(i__),e_gmag(i__),rmag(i__),
+ e_rmag(i__),imag(i__),e_imag(i__),zmag(i__),e_zmag(i__)
c ..............Just test output...........
write(6,1)
+ SLACS(i__),zl(i__),zs(i__),thetaE(i__),thetae_1(i__),
+ umag(i__),e_umag(i__),gmag(i__),e_gmag(i__),rmag(i__),
+ e_rmag(i__),imag(i__),e_imag(i__),zmag(i__),e_zmag(i__)
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(i__),MSalBC(i__),E_MSalBC(i__),e_MSalBC_1(i__),
+ MSalM(i__),E_MSalM(i__),e_MSalM_1(i__),MChaBC(i__),
+ E_MChaBC(i__),e_MChaBC_1(i__),MKroM(i__),E_MKroM(i__),
+ e_MKroM_1(i__),fap(i__),MSalBC2(i__),E_MSalBC2(i__),
+ e_MSalBC2_1(i__),MSalM2(i__),E_MSalM2(i__),e_MSalM2_1(i__),
+ MChaBC2(i__),E_MChaBC2(i__),e_MChaBC2_1(i__),MKroM2(i__),
+ E_MKroM2(i__),e_MKroM2_1(i__),Mtotlen(i__),e_Mtotlen(i__)
c ..............Just test output...........
write(6,2)
+ SLACS_1(i__),MSalBC(i__),E_MSalBC(i__),e_MSalBC_1(i__),
+ MSalM(i__),E_MSalM(i__),e_MSalM_1(i__),MChaBC(i__),
+ E_MChaBC(i__),e_MChaBC_1(i__),MKroM(i__),E_MKroM(i__),
+ e_MKroM_1(i__),fap(i__),MSalBC2(i__),E_MSalBC2(i__),
+ e_MSalBC2_1(i__),MSalM2(i__),E_MSalM2(i__),e_MSalM2_1(i__),
+ MChaBC2(i__),E_MChaBC2(i__),e_MChaBC2_1(i__),MKroM2(i__),
+ E_MKroM2(i__),e_MKroM2_1(i__),Mtotlen(i__),e_Mtotlen(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end