Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/664/226 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/ApJ/664/226 Nuker law parameters of early-type galaxies (Lauer+, 2007) *================================================================================ *The centers of early-type galaxies with Hubble space telescope. *VI. Bimodal central surface brightness profiles. * Lauer T.R., Gebhardt K., Faber S.M., Richstone D., Tremaine S., * Kormendy J., Aller M.C., Bender R., Dressler A., Filippenko A.V., Green R., * Ho L.C. * <Astrophys. J., 664, 226-256 (2007)> * =2007ApJ...664..226L C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Global parameters integer*4 nr__ parameter (nr__=219) ! Number of records character*57 ar__ ! Full-size record character*13 Name (nr__) ! Galaxy name character*3 Morph (nr__) ! The RC3 (VII/155) or Postman & Lauer (1995, * Cat. J/ApJ/440/28) BCG morphology * classification real*4 Dist (nr__) ! (Mpc) Distance integer*4 r_Dist (nr__) ! Reference in Dist (1) real*4 VMag (nr__) ! (mag) Absolute V band magnitude (2) real*4 logR (nr__) ! ([pc]) ? Log of the effective radius integer*4 r1 (nr__) ! Source of global parameters (G1) character*17 Note (nr__) ! Additional notes (4) *Note (1): Distance reference as follows: * 1 = Tonry et al. (2001ApJ...546..681T) SBF distances adjusted to * H_0_=70km/s/Mpc * 2 = distance from Faber et al. (1997AJ....114.1771F) scaled to * H_0_=70km/s/Mpc * 3 = Faber et al. (1989, Cat. VII/176) group distance * 4 = distance based on CMB velocity of galaxy or group. *Note (2): Galaxy absolute luminosities are based on RC3 V_T_ values, or the * Laine et al. (2003, Cat. J/AJ/125/478) R magnitudes for the BGC; * Schlegel et al. (1998ApJ...500..525S) extinction corrections have been * applied. *Note (4): {Delta}M values in the notes column refer to the luminosity * corrections applied to subtract the disks in S0 galaxies; * reference codes in the parentheses correspond to: * (1) = Baggett et al. (1998, Cat. J/AJ/116/1626) * (2) = Kent (1985ApJS...59..115K) * (3) = Kormendy & Illingworth (1983ApJ...265..632K) * (4) = Simien & de Vaucouleurs (1986ApJ...302..564S) * (5) = Boroson (1981ApJS...46..177B) * (6) = Burstein (1979ApJ...234..435B) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Central structural parameters integer*4 nr__1 parameter (nr__1=219) ! Number of records character*73 ar__1 ! Full-size record character*13 Name_1 (nr__1) ! Galaxy name integer*4 r2 (nr__1) ! Source of central structural parameters (G1) character*1 P (nr__1) ! [PIC] Profile type (4) real*4 rb (nr__1) ! (pc) Nuker law break radius parameter (5) real*4 theta (nr__1) ! (arcsec) Nuker law break radius (angular units) (5) real*4 Ib (nr__1) ! Nuker law break surface brightness param. (5) real*4 alpha (nr__1) ! Nuker law {alpha} parameter (5) real*4 beta (nr__1) ! Nuker law {beta} parameter (5) real*4 gamma (nr__1) ! Nuker law slope (5) real*4 gamma_ (nr__1) ! Nuker law slope at resolution limit (5) character*13 Notes (nr__1) ! Additional notes (3) *Note (4): Profile type as follows: * P = power-law * I = intermediate form * C = core *Note (3): The Notes column gives previous profile classifications and their * source if different from the present classification. *Note (5): in equation (2) of paper: * {gamma}' = -d/log(I)/d.log(r) * I(r) {prop.to} Ib.(rb/r)^{gamma}^[1+(r/rb)^{alpha}^]^({gamma}-{beta}/{alpha}^ C============================================================================= C Loading file 'table1.dat' ! Global parameters C Format for file interpretation 1 format(A13,1X,A3,1X,F5.1,1X,I1,1X,F6.2,1X,F4.2,1X,I1,1X,A17) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,219 read(1,'(A57)')ar__ read(ar__,1) + Name(i__),Morph(i__),Dist(i__),r_Dist(i__),VMag(i__), + logR(i__),r1(i__),Note(i__) if(ar__(34:37) .EQ. '') logR(i__) = rNULL__ c ..............Just test output........... write(6,1) + Name(i__),Morph(i__),Dist(i__),r_Dist(i__),VMag(i__), + logR(i__),r1(i__),Note(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Central structural parameters C Format for file interpretation 2 format( + A13,1X,I1,1X,A1,1X,F6.1,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.2,1X, + F5.2,1X,F5.2,1X,A13) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,219 read(1,'(A73)')ar__1 read(ar__1,2) + Name_1(i__),r2(i__),P(i__),rb(i__),theta(i__),Ib(i__), + alpha(i__),beta(i__),gamma(i__),gamma_(i__),Notes(i__) c ..............Just test output........... write(6,2) + Name_1(i__),r2(i__),P(i__),rb(i__),theta(i__),Ib(i__), + alpha(i__),beta(i__),gamma(i__),gamma_(i__),Notes(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end