Conversion of standardized ReadMe file for
file /./ftp/cats/J/AZh/71/706 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.5, on 2013-May-23
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__
ter (rNULL__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/AZh/71/706 BV photometry of galactic nuclei (Silchenko, 1994)
*================================================================================
*Photometrically Distinct Nuclei in Elliptical and Early-Type Disk Galaxies.
* Silchenko O.K.
* <Astron. Zh. 71, 706 (1994)>
* =1994AZh....71..706S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1' ! Photometric characteristics of elliptical galaxies
integer*4 nr__
parameter (nr__=92) ! Number of records
character*77 ar__ ! Full-size record
character*8 Name ! Name of the galaxy
character*1 Note ! [*] Notes (1)
real*4 Dist ! (Mpc) ? Distance
character*1 u_Dist ! Uncertainty flag on Distance
real*4 M_B ! (mag) B absolute magnitude
character*1 u_M_B ! Uncertainty flag on B absolute magnitude
real*4 Riarc ! (arcsec) Inner boundary radius of a studied region
* of a galaxy
real*4 Rilin ! (kpc) Inner boundary radius of a studied region
* of a galaxy
real*4 v_B_V_Ri ! (mag) B-V color of the central part of a galaxy
* limited by inner radius
integer*4 Roarc ! (arcsec) ? Outer boundary of a studied region of
* a galaxy where there is no color gradient
real*4 Rolin ! (kpc) ? Outer boundary of a studied region of
* a galaxy where there is no color gradient
real*4 v_B_V_Ro ! (mag) ? B-V color of a studied region of a galaxy
real*4 e__B_V_Ro ! (mag) ? Error on (B-V)Ro
character*2 Grad ! [- + -?+?] Indicator of the presence of
* significant (B-V) color gradient
character*4 Nucleus ! ? Degree of nucleus distinction (2)
*Note (1): Strong extinction in the galactic plane:
* NGC 2663 has A(B) = 1.33,
* NGC 3136 has A(B) = 1.94 (De Vaucouleurs et al. Second Reference
* Catalogue of Bright Galaxies, 1976, Cat. <VII/112>)
*Note (2): 1 - distinction on level 1 sigma,
* 2 - distinction on level 2 sigma,
* and so on.
* + indicate red nuclei,
* - indicate blue nuclei
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! Photometric characteristics of bulges
of lenticular galaxies
integer*4 nr__1
parameter (nr__1=84) ! Number of records
character*86 ar__1 ! Full-size record
character*8 Name_1 ! Name of the galaxy
real*4 Dist_1 ! (Mpc) ? Distance
character*1 u_Dist_1 ! Uncertainty flag on Distance
real*4 M_B_1 ! (mag) B absolute magnitude
character*1 u_M_B_1 ! Uncertainty flag on B absolute magnitude
real*4 Riarc_1 ! (arcsec) Inner boundary radius of a studied region
* of a galaxy
real*4 Rilin_1 ! (kpc) Inner boundary radius of a studied region
* of a galaxy
real*4 v_B_V_Ri_1 ! (mag) B-V color of the central part of a galaxy
* limited by inner radius
integer*4 Roarc_1 ! (arcsec) Outer boundary of a studied region of
* a galaxy where there is no color gradient
real*4 Rolin_1 ! (kpc) Outer boundary of a studied region of
* a galaxy where there is no color gradient
real*4 v_B_V_bul ! (mag) ? B-V color of a studied region of a galaxy (1)
real*4 e__B_V_bul ! (mag) ? Error on (B-V)Ro (2)
character*8 Refs ! ? References (3)
character*2 Grad_1 ! [- + -?] Indicator of the presence of
* significant (B-V) color gradient
character*5 Nucleus_1 ! ? Degree of nucleus distinction (4)
*Note (1): Labels for table3 and table5 change to (B-V)disk
*Note (2): Labels for table3 and table5 change to e_(B-V)disk
*Note (3): References:
* B81 = Boroson, 1981ApJS...46..177B
* M92 = Magrelli Et al., 1992MNRAS.256..500M
* SV8 = Simien & de Vaucouleurs, 1986ApJ...302..564S
* K84 = Kent, 1984ApJS...56..105K
* K86 = Kent, 1986AJ.....91.1301K
* K88 = Kent, 1988AJ.....96..514K
* Gr = Grosbol, 1985A&AS...60..261G
*Note (4): 1 = distinction on level 1 sigma,
* 2 = distinction on level 2 sigma,
* and so on.
* + indicate red nuclei,
* - indicate blue nuclei
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3' ! Photometric characteristics of disks of
lenticular galaxies
integer*4 nr__2
parameter (nr__2=24) ! Number of records
character*86 ar__2 ! Full-size record
character*8 Name_2 ! Name of the galaxy
real*4 Dist_2 ! (Mpc) ? Distance
character*1 u_Dist_2 ! Uncertainty flag on Distance
real*4 M_B_1 ! (mag) B absolute magnitude
character*1 u_M_B_1 ! Uncertainty flag on B absolute magnitude
real*4 Riarc_2 ! (arcsec) Inner boundary radius of a studied region
* of a galaxy
real*4 Rilin_2 ! (kpc) Inner boundary radius of a studied region
* of a galaxy
real*4 v_B_V_Ri_2 ! (mag) B-V color of the central part of a galaxy
* limited by inner radius
integer*4 Roarc_2 ! (arcsec) Outer boundary of a studied region of
* a galaxy where there is no color gradient
real*4 Rolin_2 ! (kpc) Outer boundary of a studied region of
* a galaxy where there is no color gradient
real*4 v_B_V_bul_1 ! (mag) ? B-V color of a studied region of a galaxy (1)
real*4 e__B_V_bul_1 ! (mag) ? Error on (B-V)Ro (2)
character*8 Refs_1 ! ? References (3)
character*2 Grad_2 ! [- + -?] Indicator of the presence of
* significant (B-V) color gradient
character*5 Nucleus_2 ! ? Degree of nucleus distinction (4)
*Note (1): Labels for table3 and table5 change to (B-V)disk
*Note (2): Labels for table3 and table5 change to e_(B-V)disk
*Note (3): References:
* B81 = Boroson, 1981ApJS...46..177B
* M92 = Magrelli Et al., 1992MNRAS.256..500M
* SV8 = Simien & de Vaucouleurs, 1986ApJ...302..564S
* K84 = Kent, 1984ApJS...56..105K
* K86 = Kent, 1986AJ.....91.1301K
* K88 = Kent, 1988AJ.....96..514K
* Gr = Grosbol, 1985A&AS...60..261G
*Note (4): 1 = distinction on level 1 sigma,
* 2 = distinction on level 2 sigma,
* and so on.
* + indicate red nuclei,
* - indicate blue nuclei
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4' ! Photometric characteristics of bulges of
early-type spiral galaxies
integer*4 nr__3
parameter (nr__3=61) ! Number of records
character*86 ar__3 ! Full-size record
character*8 Name_3 ! Name of the galaxy
real*4 Dist_3 ! (Mpc) ? Distance
character*1 u_Dist_3 ! Uncertainty flag on Distance
real*4 M_B_1 ! (mag) B absolute magnitude
character*1 u_M_B_1 ! Uncertainty flag on B absolute magnitude
real*4 Riarc_3 ! (arcsec) Inner boundary radius of a studied region
* of a galaxy
real*4 Rilin_3 ! (kpc) Inner boundary radius of a studied region
* of a galaxy
real*4 v_B_V_Ri_3 ! (mag) B-V color of the central part of a galaxy
* limited by inner radius
integer*4 Roarc_3 ! (arcsec) Outer boundary of a studied region of
* a galaxy where there is no color gradient
real*4 Rolin_3 ! (kpc) Outer boundary of a studied region of
* a galaxy where there is no color gradient
real*4 v_B_V_bul_2 ! (mag) ? B-V color of a studied region of a galaxy (1)
real*4 e__B_V_bul_2 ! (mag) ? Error on (B-V)Ro (2)
character*8 Refs_2 ! ? References (3)
character*2 Grad_3 ! [- + -?] Indicator of the presence of
* significant (B-V) color gradient
character*5 Nucleus_3 ! ? Degree of nucleus distinction (4)
*Note (1): Labels for table3 and table5 change to (B-V)disk
*Note (2): Labels for table3 and table5 change to e_(B-V)disk
*Note (3): References:
* B81 = Boroson, 1981ApJS...46..177B
* M92 = Magrelli Et al., 1992MNRAS.256..500M
* SV8 = Simien & de Vaucouleurs, 1986ApJ...302..564S
* K84 = Kent, 1984ApJS...56..105K
* K86 = Kent, 1986AJ.....91.1301K
* K88 = Kent, 1988AJ.....96..514K
* Gr = Grosbol, 1985A&AS...60..261G
*Note (4): 1 = distinction on level 1 sigma,
* 2 = distinction on level 2 sigma,
* and so on.
* + indicate red nuclei,
* - indicate blue nuclei
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5' ! Photometric characteristics of disks of
early-type spiral galaxies
integer*4 nr__4
parameter (nr__4=29) ! Number of records
character*86 ar__4 ! Full-size record
character*8 Name_4 ! Name of the galaxy
real*4 Dist_4 ! (Mpc) ? Distance
character*1 u_Dist_4 ! Uncertainty flag on Distance
real*4 M_B_1 ! (mag) B absolute magnitude
character*1 u_M_B_1 ! Uncertainty flag on B absolute magnitude
real*4 Riarc_4 ! (arcsec) Inner boundary radius of a studied region
* of a galaxy
real*4 Rilin_4 ! (kpc) Inner boundary radius of a studied region
* of a galaxy
real*4 v_B_V_Ri_4 ! (mag) B-V color of the central part of a galaxy
* limited by inner radius
integer*4 Roarc_4 ! (arcsec) Outer boundary of a studied region of
* a galaxy where there is no color gradient
real*4 Rolin_4 ! (kpc) Outer boundary of a studied region of
* a galaxy where there is no color gradient
real*4 v_B_V_bul_3 ! (mag) ? B-V color of a studied region of a galaxy (1)
real*4 e__B_V_bul_3 ! (mag) ? Error on (B-V)Ro (2)
character*8 Refs_3 ! ? References (3)
character*2 Grad_4 ! [- + -?] Indicator of the presence of
* significant (B-V) color gradient
character*5 Nucleus_4 ! ? Degree of nucleus distinction (4)
*Note (1): Labels for table3 and table5 change to (B-V)disk
*Note (2): Labels for table3 and table5 change to e_(B-V)disk
*Note (3): References:
* B81 = Boroson, 1981ApJS...46..177B
* M92 = Magrelli Et al., 1992MNRAS.256..500M
* SV8 = Simien & de Vaucouleurs, 1986ApJ...302..564S
* K84 = Kent, 1984ApJS...56..105K
* K86 = Kent, 1986AJ.....91.1301K
* K88 = Kent, 1988AJ.....96..514K
* Gr = Grosbol, 1985A&AS...60..261G
*Note (4): 1 = distinction on level 1 sigma,
* 2 = distinction on level 2 sigma,
* and so on.
* + indicate red nuclei,
* - indicate blue nuclei
C=============================================================================
C Loading file 'table1' ! Photometric characteristics of elliptical galaxies
C Format for file interpretation
1 format(
+ A8,A1,2X,F4.1,A1,2X,F6.2,A1,2X,F4.1,2X,F4.2,2X,F4.2,2X,I3,2X,
+ F5.2,2X,F4.2,2X,F4.2,2X,A2,2X,A4)
C Effective file loading
open(unit=1,file='table1', status='old')
write(6,*) '....Loading file: table1'
do i__=1,92
read(1,'(A77)')ar__
read(ar__,1)
+ Name,Note,Dist,u_Dist,M_B,u_M_B,Riarc,Rilin,v_B_V_Ri,Roarc,
+ Rolin,v_B_V_Ro,e__B_V_Ro,Grad,Nucleus
if(ar__(12:15) .EQ. '') Dist = rNULL__
if(ar__(46:48) .EQ. '') Roarc = iNULL__
if(ar__(51:55) .EQ. '') Rolin = rNULL__
if(ar__(58:61) .EQ. '') v_B_V_Ro = rNULL__
if(ar__(64:67) .EQ. '') e__B_V_Ro = rNULL__
c ..............Just test output...........
write(6,1)
+ Name,Note,Dist,u_Dist,M_B,u_M_B,Riarc,Rilin,v_B_V_Ri,Roarc,
+ Rolin,v_B_V_Ro,e__B_V_Ro,Grad,Nucleus
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2' ! Photometric characteristics of bulges
* of lenticular galaxies
C Format for file interpretation
2 format(
+ A8,2X,F4.1,A1,2X,F6.2,A1,2X,F4.1,2X,F5.3,1X,F4.2,2X,I3,2X,
+ F5.2,2X,F4.2,2X,F4.2,2X,A8,2X,A2,1X,A5)
C Effective file loading
open(unit=1,file='table2', status='old')
write(6,*) '....Loading file: table2'
do i__=1,84
read(1,'(A86)')ar__1
read(ar__1,2)
+ Name_1,Dist_1,u_Dist_1,M_B_1,u_M_B_1,Riarc_1,Rilin_1,
+ v_B_V_Ri_1,Roarc_1,Rolin_1,v_B_V_bul,e__B_V_bul,Refs,Grad_1,
+ Nucleus_1
if(ar__1(11:14) .EQ. '') Dist_1 = rNULL__
if(ar__1(57:60) .EQ. '') v_B_V_bul = rNULL__
if(ar__1(63:66) .EQ. '') e__B_V_bul = rNULL__
c ..............Just test output...........
write(6,2)
+ Name_1,Dist_1,u_Dist_1,M_B_1,u_M_B_1,Riarc_1,Rilin_1,
+ v_B_V_Ri_1,Roarc_1,Rolin_1,v_B_V_bul,e__B_V_bul,Refs,Grad_1,
+ Nucleus_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3' ! Photometric characteristics of disks of
* lenticular galaxies
C Format for file interpretation
3 format(
+ A8,2X,F4.1,A1,2X,F6.2,A1,2X,F4.1,2X,F5.3,1X,F4.2,2X,I3,2X,
+ F5.2,2X,F4.2,2X,F4.2,2X,A8,2X,A2,1X,A5)
C Effective file loading
open(unit=1,file='table3', status='old')
write(6,*) '....Loading file: table3'
do i__=1,24
read(1,'(A86)')ar__2
read(ar__2,3)
+ Name_2,Dist_2,u_Dist_2,M_B_1,u_M_B_1,Riarc_2,Rilin_2,
+ v_B_V_Ri_2,Roarc_2,Rolin_2,v_B_V_bul_1,e__B_V_bul_1,Refs_1,
+ Grad_2,Nucleus_2
if(ar__2(11:14) .EQ. '') Dist_2 = rNULL__
if(ar__2(57:60) .EQ. '') v_B_V_bul_1 = rNULL__
if(ar__2(63:66) .EQ. '') e__B_V_bul_1 = rNULL__
c ..............Just test output...........
write(6,3)
+ Name_2,Dist_2,u_Dist_2,M_B_1,u_M_B_1,Riarc_2,Rilin_2,
+ v_B_V_Ri_2,Roarc_2,Rolin_2,v_B_V_bul_1,e__B_V_bul_1,Refs_1,
+ Grad_2,Nucleus_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4' ! Photometric characteristics of bulges of
* early-type spiral galaxies
C Format for file interpretation
4 format(
+ A8,2X,F4.1,A1,2X,F6.2,A1,2X,F4.1,2X,F5.3,1X,F4.2,2X,I3,2X,
+ F5.2,2X,F4.2,2X,F4.2,2X,A8,2X,A2,1X,A5)
C Effective file loading
open(unit=1,file='table4', status='old')
write(6,*) '....Loading file: table4'
do i__=1,61
read(1,'(A86)')ar__3
read(ar__3,4)
+ Name_3,Dist_3,u_Dist_3,M_B_1,u_M_B_1,Riarc_3,Rilin_3,
+ v_B_V_Ri_3,Roarc_3,Rolin_3,v_B_V_bul_2,e__B_V_bul_2,Refs_2,
+ Grad_3,Nucleus_3
if(ar__3(11:14) .EQ. '') Dist_3 = rNULL__
if(ar__3(57:60) .EQ. '') v_B_V_bul_2 = rNULL__
if(ar__3(63:66) .EQ. '') e__B_V_bul_2 = rNULL__
c ..............Just test output...........
write(6,4)
+ Name_3,Dist_3,u_Dist_3,M_B_1,u_M_B_1,Riarc_3,Rilin_3,
+ v_B_V_Ri_3,Roarc_3,Rolin_3,v_B_V_bul_2,e__B_V_bul_2,Refs_2,
+ Grad_3,Nucleus_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5' ! Photometric characteristics of disks of
* early-type spiral galaxies
C Format for file interpretation
5 format(
+ A8,2X,F4.1,A1,2X,F6.2,A1,2X,F4.1,2X,F5.3,1X,F4.2,2X,I3,2X,
+ F5.2,2X,F4.2,2X,F4.2,2X,A8,2X,A2,1X,A5)
C Effective file loading
open(unit=1,file='table5', status='old')
write(6,*) '....Loading file: table5'
do i__=1,29
read(1,'(A86)')ar__4
read(ar__4,5)
+ Name_4,Dist_4,u_Dist_4,M_B_1,u_M_B_1,Riarc_4,Rilin_4,
+ v_B_V_Ri_4,Roarc_4,Rolin_4,v_B_V_bul_3,e__B_V_bul_3,Refs_3,
+ Grad_4,Nucleus_4
if(ar__4(11:14) .EQ. '') Dist_4 = rNULL__
if(ar__4(57:60) .EQ. '') v_B_V_bul_3 = rNULL__
if(ar__4(63:66) .EQ. '') e__B_V_bul_3 = rNULL__
c ..............Just test output...........
write(6,5)
+ Name_4,Dist_4,u_Dist_4,M_B_1,u_M_B_1,Riarc_4,Rilin_4,
+ v_B_V_Ri_4,Roarc_4,Rolin_4,v_B_V_bul_3,e__B_V_bul_3,Refs_3,
+ Grad_4,Nucleus_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end