Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/365/370 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-19
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/365/370 Photometry of UCM galaxies. II. (Perez-Gonzalez+, 2001)
*================================================================================
*Optical photometry of the UCM Lists I and II.
*II. B band surface photometry and morphological discussion.
* Perez-Gonzalez P. G., Gallego J., Zamorano J., Gil de Paz A.
* <Astron. Astrophys. 365, 370 (2001)>
* =2001A&A...365..370P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Bulge and disk parameters in the Johnson B band,
bulge-to disk ratios, mean ellipticity and PA
of the outer isophotes
integer*4 nr__
parameter (nr__=191) ! Number of records
character*82 ar__ ! Full-size record
character*10 UCM (nr__) ! UCM name
real*4 mue (nr__) ! (mag/arcsec2) ? Effective surface brightness of the bulge
real*4 e_mue (nr__) ! (mag/arcsec2) ? rms uncertainty on mue
real*4 re (nr__) ! (arcsec) ? Effective radius of the bulge
real*4 e_re (nr__) ! (arcsec) ? rms uncertainty on re
real*4 mu0 (nr__) ! (mag/arcsec2) ? Central surface brightness of the disk
real*4 e_mu0 (nr__) ! (mag/arcsec2) ? rms uncertainty on mu0
real*4 dL (nr__) ! (arcsec) ? Disk scale
real*4 e_dL (nr__) ! (arcsec) ? rms uncertainty on dL
real*4 B_D (nr__) ! ? Bulge-to-disk ratio
real*4 e_B_D (nr__) ! ? rms uncertainty on B/D
real*4 ell (nr__) ! ? Mean ellipticity of the outer isophotes
real*4 e_ell (nr__) ! ? rms uncertainty on ell
integer*4 PA (nr__) ! (deg) [-90/90]? Mean position angle of the outer
* isophotes
integer*4 e_PA (nr__) ! (deg) ? rms uncertainty on PA
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Concentration indices, isophote 24.5mag/arcsec^2^
data, effective surface brightness and
asymmetry coefficient
integer*4 nr__1
parameter (nr__1=191) ! Number of records
character*53 ar__1 ! Full-size record
character*10 UCM_1 (nr__1) ! UCM name
real*4 c31 (nr__1) ! ? c31 concentration index.
* Mean error is 1% (1)
real*4 c42 (nr__1) ! ? c42 concentration index.
* Mean error is 2% (2)
real*4 cin (nr__1) ! ? cin concentration index.
* Mean error is 6% (3)
real*4 b24_5 (nr__1) ! (mag) ? B magnitude inside the 24.5mag/arcsec^2^
* isophote. Mean error is 0.06mag
real*4 r24_5 (nr__1) ! (kpc) ? Radius of the 24.5 mag/arcsec^2^ isophote.
* Mean error is 11%
real*4 mu24_5 (nr__1) ! (mag/arcsec2) ? Mean surface brightness inside the
* 24.5mag/arcsec^2^ isophote.
* Mean error is 0.06mag/arcsec^2^
real*4 mue_1 (nr__1) ! (mag/arcsec2) ? Mean effective surface brightness.
* Mean error is 0.02mag/arcsec^2^
real*4 A (nr__1) ! (%) ? Asymmetry coefficient. Mean error is 2% (4)
*Note (1): Ratio between the radius containing 75% of the light of the galaxy
* and the radius with 25% of the galaxy luminosity .Defined in
* de Vaucouleurs, 1977, "Evolution of galaxies and stellar
* populations", eds. Larson & Tinsley
*Note (2): c42 = 5log(r_80_/r_20_), where r_80_ and r_20_ are the equivalent
* radii containing 80 and 20% of the total flux of the galaxy,
* respectively. Defined in Kent, 1985ApJS...59..115K
*Note (3): Cin(alpha)=({Int(0, alpha*r(mu_L_)}rI(r)dr)/({Int(0, r(mu_L_)}rI(r)dr)
* where mu_L_ is the detection threshold (set to 24.5,ag/arcsec^2^,
* mean valuer in our images) and {alpha} a parameter, 0<{alpha}<1,
* appropriately chosen (it was set to 0.3, optimal value).
* Defined in Doi et al., 1993MNRAS.264..832D2
*Note (4): Defined in Abraham et al., 1996, Cat. <J/ApJS/107/1>
C=============================================================================
C Loading file 'table2.dat' ! Bulge and disk parameters in the Johnson B band,
* bulge-to disk ratios, mean ellipticity and PA
* of the outer isophotes
C Format for file interpretation
1 format(
+ A10,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,
+ 1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,I3,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,191
read(1,'(A82)')ar__
read(ar__,1)
+ UCM(i__),mue(i__),e_mue(i__),re(i__),e_re(i__),mu0(i__),
+ e_mu0(i__),dL(i__),e_dL(i__),B_D(i__),e_B_D(i__),ell(i__),
+ e_ell(i__),PA(i__),e_PA(i__)
if(ar__(12:16) .EQ. '') mue(i__) = rNULL__
if(ar__(18:21) .EQ. '') e_mue(i__) = rNULL__
if(ar__(23:27) .EQ. '') re(i__) = rNULL__
if(ar__(29:32) .EQ. '') e_re(i__) = rNULL__
if(ar__(34:38) .EQ. '') mu0(i__) = rNULL__
if(ar__(40:43) .EQ. '') e_mu0(i__) = rNULL__
if(ar__(45:49) .EQ. '') dL(i__) = rNULL__
if(ar__(51:54) .EQ. '') e_dL(i__) = rNULL__
if(ar__(56:60) .EQ. '') B_D(i__) = rNULL__
if(ar__(62:65) .EQ. '') e_B_D(i__) = rNULL__
if(ar__(67:70) .EQ. '') ell(i__) = rNULL__
if(ar__(72:75) .EQ. '') e_ell(i__) = rNULL__
if(ar__(77:79) .EQ. '') PA(i__) = iNULL__
if(ar__(81:82) .EQ. '') e_PA(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ UCM(i__),mue(i__),e_mue(i__),re(i__),e_re(i__),mu0(i__),
+ e_mu0(i__),dL(i__),e_dL(i__),B_D(i__),e_B_D(i__),ell(i__),
+ e_ell(i__),PA(i__),e_PA(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Concentration indices, isophote 24.5mag/arcsec^2^
* data, effective surface brightness and
* asymmetry coefficient
C Format for file interpretation
2 format(
+ A10,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.1,1X,F5.2,1X,F5.2,
+ 1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,191
read(1,'(A53)')ar__1
read(ar__1,2)
+ UCM_1(i__),c31(i__),c42(i__),cin(i__),b24_5(i__),r24_5(i__),
+ mu24_5(i__),mue_1(i__),A(i__)
if(ar__1(12:15) .EQ. '') c31(i__) = rNULL__
if(ar__1(17:20) .EQ. '') c42(i__) = rNULL__
if(ar__1(22:25) .EQ. '') cin(i__) = rNULL__
if(ar__1(27:31) .EQ. '') b24_5(i__) = rNULL__
if(ar__1(33:36) .EQ. '') r24_5(i__) = rNULL__
if(ar__1(38:42) .EQ. '') mu24_5(i__) = rNULL__
if(ar__1(44:48) .EQ. '') mue_1(i__) = rNULL__
if(ar__1(50:53) .EQ. '') A(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ UCM_1(i__),c31(i__),c42(i__),cin(i__),b24_5(i__),r24_5(i__),
+ mu24_5(i__),mue_1(i__),A(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end