Conversion of standardized ReadMe file for
file /./ftp/cats/J/PAZh/33/403 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-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/PAZh/33/403 Globular clusters as gravitational lenses (Bukhmastova+, 2007)
*================================================================================
*Quasars Lensed by Globular Clusters of Spiral and Elliptical Galaxies.
* Bukhmastova Yu.L.
* <Pis'ma Astron. Zh. 33, 403 (2007)>
* =2007PAZh...33..403B
* =2007AstL...33..355B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Close quasar-galaxy pairs found based on the
catalog of quasars and LEDA database
integer*4 nr__
parameter (nr__=64) ! Number of records
character*107 ar__ ! Full-size record
C J2000 position composed of: RArad DErad
integer*4 Seq (nr__) ! Quasar-galaxy pair number in the original
* catalog (J/AZh/78/675)
character*15 NameQ (nr__) ! Name of quasar (1)
real*8 RArad (nr__) ! (rad) Right Ascension (J2000) of quasar
real*8 DErad (nr__) ! (rad) Declination (J2000) of quasar
real*4 zQ (nr__) ! Quasar redshift
real*4 mQ (nr__) ! (mag) Apparent magnitude of quasar
character*11 NameG (nr__) ! Name of galaxy
real*4 zG (nr__) ! Galaxy redshift
real*4 Dist (nr__) ! (kpc) Distance from galaxy center to
* quasar projection in kpc
real*4 Dista (nr__) ! (arcsec) Distance from galaxy center to
* quasar projection in arcsec
real*4 Q (nr__) ! (arcsec) Presumed splitting angle between quasar images
* under the assumption that the mass of
* gravitational lens is 3*10^5^solMass
character*7 GType (nr__) ! Type of the galaxy (2)
*Note (1): We used catalog "Quasars and active galactic nuclei" by
* Veron-Cetty and Veron (ESO Sci.Rep. 18, 1998, See Cat. <VII/248>).
*Note (2): Galaxy type is taken from NED database: nedwww.ipac.caltech.edu
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Close quasar-galaxy pairs found based on the
fourth version of the SDSS catalog
integer*4 nr__1
parameter (nr__1=64) ! Number of records
character*142 ar__1 ! Full-size record
C J2000 position composed of: RArad DErad
integer*4 Pair (nr__1) ! Quasar-galaxy pair number in the sample
character*18 NameQ_1 (nr__1) ! Quasar identification number in SDSS catalog
character*18 NameG_1 (nr__1) ! Galaxy identification number in SDSS catalog
real*8 RArad_1 (nr__1) ! (rad) Right Ascension (J2000) of quasar
real*8 DErad_1 (nr__1) ! (rad) Declination (J2000) of quasar
real*8 RAg_rad (nr__1) ! (rad) Right Ascension (J2000) of galaxy
real*8 DEg_rad (nr__1) ! (rad) Declination (J2000) of galaxy
real*8 zQ_1 (nr__1) ! Quasar redshift
real*8 zG_1 (nr__1) ! galaxy redshift
real*4 mQ_1 (nr__1) ! (mag) Apparent magnitude of quasar
real*4 mG (nr__1) ! (mag) Apparent magnitude of galaxy
real*4 g__r_ (nr__1) ! (mag) Color index of galaxy
real*4 Dist_1 (nr__1) ! (kpc) Distance from the galaxy center to quasar
* projection
real*8 Q_1 (nr__1) ! (arcsec) Presumed splitting angle between quasar images
* under the assumption that the mass of
* gravitational lens is 3*10^5^solMass
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Estimated number of globular clusters in spiral
and elliptical galaxies
integer*4 nr__2
parameter (nr__2=18) ! Number of records
character*34 ar__2 ! Full-size record
character*9 Galaxy (nr__2) ! Galaxy name
character*5 MType (nr__2) ! Galaxy type
integer*4 Nqso (nr__2) ! Number of quasars
character*11 Nhgc (nr__2) ! Number of halo globular clusters
C=============================================================================
C Loading file 'table1.dat' ! Close quasar-galaxy pairs found based on the
* catalog of quasars and LEDA database
C Format for file interpretation
1 format(
+ I4,2X,A15,2X,F8.6,2X,F8.5,2X,F5.3,2X,F5.2,2X,A11,2X,F6.4,2X,
+ F5.1,2X,F5.2,2X,F6.4,2X,A7)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,64
read(1,'(A107)')ar__
read(ar__,1)
+ Seq(i__),NameQ(i__),RArad(i__),DErad(i__),zQ(i__),mQ(i__),
+ NameG(i__),zG(i__),Dist(i__),Dista(i__),Q(i__),GType(i__)
c ..............Just test output...........
write(6,1)
+ Seq(i__),NameQ(i__),RArad(i__),DErad(i__),zQ(i__),mQ(i__),
+ NameG(i__),zG(i__),Dist(i__),Dista(i__),Q(i__),GType(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Close quasar-galaxy pairs found based on the
* fourth version of the SDSS catalog
C Format for file interpretation
2 format(
+ I2,2X,A18,2X,A18,3X,F8.6,1X,F9.6,2X,F8.6,1X,F9.6,2X,F7.5,2X,
+ F7.5,2X,F6.3,2X,F6.3,2X,F6.3,2X,F5.1,2X,F8.6)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,64
read(1,'(A142)')ar__1
read(ar__1,2)
+ Pair(i__),NameQ_1(i__),NameG_1(i__),RArad_1(i__),DErad_1(i__),
+ RAg_rad(i__),DEg_rad(i__),zQ_1(i__),zG_1(i__),mQ_1(i__),
+ mG(i__),g__r_(i__),Dist_1(i__),Q_1(i__)
c ..............Just test output...........
write(6,2)
+ Pair(i__),NameQ_1(i__),NameG_1(i__),RArad_1(i__),DErad_1(i__),
+ RAg_rad(i__),DEg_rad(i__),zQ_1(i__),zG_1(i__),mQ_1(i__),
+ mG(i__),g__r_(i__),Dist_1(i__),Q_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Estimated number of globular clusters in spiral
* and elliptical galaxies
C Format for file interpretation
3 format(A9,3X,A5,2X,I3,1X,A11)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,18
read(1,'(A34)')ar__2
read(ar__2,3)Galaxy(i__),MType(i__),Nqso(i__),Nhgc(i__)
c ..............Just test output...........
write(6,3)Galaxy(i__),MType(i__),Nqso(i__),Nhgc(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end