Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/365/370 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-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/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 ! UCM name real*4 mue ! (mag/arcsec2) ? Effective surface brightness of the bulge real*4 e_mue ! (mag/arcsec2) ? rms uncertainty on mue real*4 re ! (arcsec) ? Effective radius of the bulge real*4 e_re ! (arcsec) ? rms uncertainty on re real*4 mu0 ! (mag/arcsec2) ? Central surface brightness of the disk real*4 e_mu0 ! (mag/arcsec2) ? rms uncertainty on mu0 real*4 dL ! (arcsec) ? Disk scale real*4 e_dL ! (arcsec) ? rms uncertainty on dL real*4 B_D ! ? Bulge-to-disk ratio real*4 e_B_D ! ? rms uncertainty on B/D real*4 ell ! ? Mean ellipticity of the outer isophotes real*4 e_ell ! ? rms uncertainty on ell integer*4 PA ! (deg) [-90/90]? Mean position angle of the outer * isophotes integer*4 e_PA ! (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 ! UCM name real*4 c31 ! ? c31 concentration index. * Mean error is 1% (1) real*4 c42 ! ? c42 concentration index. * Mean error is 2% (2) real*4 cin ! ? cin concentration index. * Mean error is 6% (3) real*4 b24_5 ! (mag) ? B magnitude inside the 24.5mag/arcsec^2^ * isophote. Mean error is 0.06mag real*4 r24_5 ! (kpc) ? Radius of the 24.5 mag/arcsec^2^ isophote. * Mean error is 11% real*4 mu24_5 ! (mag/arcsec2) ? Mean surface brightness inside the * 24.5mag/arcsec^2^ isophote. * Mean error is 0.06mag/arcsec^2^ real*4 mue_1 ! (mag/arcsec2) ? Mean effective surface brightness. * Mean error is 0.02mag/arcsec^2^ real*4 A ! (%) ? 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,mue,e_mue,re,e_re,mu0,e_mu0,dL,e_dL,B_D,e_B_D,ell,e_ell, + PA,e_PA if(ar__(12:16) .EQ. '') mue = rNULL__ if(ar__(18:21) .EQ. '') e_mue = rNULL__ if(ar__(23:27) .EQ. '') re = rNULL__ if(ar__(29:32) .EQ. '') e_re = rNULL__ if(ar__(34:38) .EQ. '') mu0 = rNULL__ if(ar__(40:43) .EQ. '') e_mu0 = rNULL__ if(ar__(45:49) .EQ. '') dL = rNULL__ if(ar__(51:54) .EQ. '') e_dL = rNULL__ if(ar__(56:60) .EQ. '') B_D = rNULL__ if(ar__(62:65) .EQ. '') e_B_D = rNULL__ if(ar__(67:70) .EQ. '') ell = rNULL__ if(ar__(72:75) .EQ. '') e_ell = rNULL__ if(ar__(77:79) .EQ. '') PA = iNULL__ if(ar__(81:82) .EQ. '') e_PA = iNULL__ c ..............Just test output........... write(6,1) + UCM,mue,e_mue,re,e_re,mu0,e_mu0,dL,e_dL,B_D,e_B_D,ell,e_ell, + PA,e_PA 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,c31,c42,cin,b24_5,r24_5,mu24_5,mue_1,A if(ar__1(12:15) .EQ. '') c31 = rNULL__ if(ar__1(17:20) .EQ. '') c42 = rNULL__ if(ar__1(22:25) .EQ. '') cin = rNULL__ if(ar__1(27:31) .EQ. '') b24_5 = rNULL__ if(ar__1(33:36) .EQ. '') r24_5 = rNULL__ if(ar__1(38:42) .EQ. '') mu24_5 = rNULL__ if(ar__1(44:48) .EQ. '') mue_1 = rNULL__ if(ar__1(50:53) .EQ. '') A = rNULL__ c ..............Just test output........... write(6,2)UCM_1,c31,c42,cin,b24_5,r24_5,mu24_5,mue_1,A c .......End.of.Just test output........... end do close(1) C============================================================================= stop end