Conversion of standardized ReadMe file for
file /./ftp/cats/J/PAZh/33/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-Mar-28 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 ! Quasar-galaxy pair number in the original * catalog (J/AZh/78/675) character*15 NameQ ! Name of quasar (1) real*8 RArad ! (rad) Right Ascension (J2000) of quasar real*8 DErad ! (rad) Declination (J2000) of quasar real*4 zQ ! Quasar redshift real*4 mQ ! (mag) Apparent magnitude of quasar character*11 NameG ! Name of galaxy real*4 zG ! Galaxy redshift real*4 Dist ! (kpc) Distance from galaxy center to * quasar projection in kpc real*4 Dista ! (arcsec) Distance from galaxy center to * quasar projection in arcsec real*4 Q ! (arcsec) Presumed splitting angle between quasar images * under the assumption that the mass of * gravitational lens is 3*10^5^solMass character*7 GType ! 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 ! Quasar-galaxy pair number in the sample character*18 NameQ_1 ! Quasar identification number in SDSS catalog character*18 NameG_1 ! Galaxy identification number in SDSS catalog real*8 RArad_1 ! (rad) Right Ascension (J2000) of quasar real*8 DErad_1 ! (rad) Declination (J2000) of quasar real*8 RAg_rad ! (rad) Right Ascension (J2000) of galaxy real*8 DEg_rad ! (rad) Declination (J2000) of galaxy real*8 zQ_1 ! Quasar redshift real*8 zG_1 ! galaxy redshift real*4 mQ_1 ! (mag) Apparent magnitude of quasar real*4 mG ! (mag) Apparent magnitude of galaxy real*4 g__r_ ! (mag) Color index of galaxy real*4 Dist_1 ! (kpc) Distance from the galaxy center to quasar * projection real*8 Q_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 ! Galaxy name character*5 MType ! Galaxy type integer*4 Nqso ! Number of quasars character*11 Nhgc ! 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,NameQ,RArad,DErad,zQ,mQ,NameG,zG,Dist,Dista,Q,GType c ..............Just test output........... write(6,1) + Seq,NameQ,RArad,DErad,zQ,mQ,NameG,zG,Dist,Dista,Q,GType 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,NameQ_1,NameG_1,RArad_1,DErad_1,RAg_rad,DEg_rad,zQ_1, + zG_1,mQ_1,mG,g__r_,Dist_1,Q_1 c ..............Just test output........... write(6,2) + Pair,NameQ_1,NameG_1,RArad_1,DErad_1,RAg_rad,DEg_rad,zQ_1, + zG_1,mQ_1,mG,g__r_,Dist_1,Q_1 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,MType,Nqso,Nhgc c ..............Just test output........... write(6,3)Galaxy,MType,Nqso,Nhgc c .......End.of.Just test output........... end do close(1) C============================================================================= stop end