Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/335/823 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-16
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/335/823 Evolution models of elliptical galaxies. III. (Tantalo+ 1998)
*================================================================================
*Spectro-photometric evolution of elliptical galaxies.
*III. Infall models with gradients in mass density and star formation
* Tantalo R., Chiosi C., Bressan A., Marigo P., Portinari L.
* <Astron. Astrophys. 335, 823 (1998)>
* =1998A&A...335..823T (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Chemical Models at the Stage of Wind Ejection
integer*4 nr__
parameter (nr__=66) ! Number of records
character*121 ar__ ! Full-size record
real*4 M_LT12 (nr__) ! (solMass) Asymptotic mass M_{L,T,12}_
real*4 nu (nr__) ! Efficiency of star formation {nu}(r_j/2_)
real*4 zeta (nr__) ! IMF parameter {zeta}
real*4 tau (nr__) ! (Gyr) Time scale of mass accretion {tau}(r_j/2_)
real*8 M_Lt (nr__) ! (solMass) Value reached by M_L,t_ at the onset of
* galactic wind
real*4 Age (nr__) ! (Gyr) Age at which the galactic wind occurs,
* t_g{omega}_
real*4 G_rt (nr__) ! Dimensionless mass of gas G(r_j/2_,t)
real*4 S_rt (nr__) ! Dimensionless mass of living stars S(r_j/2_,t)
real*4 Zmax (nr__) ! (Sun) Maximum metallicity, Z(r_j/2_,t)
real*4 Zmean (nr__) ! (Sun) Mean metallicity, <Z(r_j/2_,t)>
real*4 Psi (nr__) ! (solMass/yr) Rate of star formation {Psi}(r_j/2_,t)
real*4 Omegag (nr__) ! Gravitational binding energy of the gas
* {Omega}_g_(r_j/2_,t)
real*4 Eg (nr__) ! (10+43J) Total thermal energy of this E_g(r_j/2_,t)
real*4 ESNI (nr__) ! (10+43J) Contributions to the thermal energy by
* Type I supernovae
real*4 ESNII (nr__) ! (10+43J) Contributions to the thermal energy by
* Type II supernovae
real*4 ESW (nr__) ! (10+43J) Contributions to the thermal energy by
* stellar winds;
real*4 r (nr__) ! Mid shell fractionary radius r_j/2_
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Integrated magnitude and colours of galaxy models
integer*4 nr__1
parameter (nr__1=197) ! Number of records
character*103 ar__1 ! Full-size record
real*4 M_lt12_1 (nr__1) ! (10+12solMass) Asymptotic mass of the model, M_l,t,12_
real*8 nu_1 (nr__1) ! Efficiency of star formation, {nu}(r_j/2_)
real*4 tau_1 (nr__1) ! (Gyr) Time scale of gas accretion, {tau}(r_j/2_)
real*8 M_lt_1 (nr__1) ! (10+12solMass) Asymptotic mass of each zone, M_l,t_
real*4 Age_1 (nr__1) ! (Gyr) Age
real*8 Mbol (nr__1) ! (mag) Integrated absolute bolometric of each zone
real*8 Mvis (nr__1) ! (mag) Integrated visual magnitudes of each zone
real*4 U_B (nr__1) ! (mag) Integrated colours (U-B)
real*4 B_V (nr__1) ! (mag) Integrated colours (B-V)
real*4 V_R (nr__1) ! (mag) Integrated colours (V-R)
real*4 V_I (nr__1) ! (mag) Integrated colours (V-I)
real*4 V_J (nr__1) ! (mag) Integrated colours (V-J)
real*4 V_H (nr__1) ! (mag) Integrated colours (V-H)
real*4 V_K (nr__1) ! (mag) Integrated colours (V-K)
real*4 v1550_V (nr__1) ! (mag) Integrated colours (1550-V)
real*4 Rad (nr__1) ! Fractionary radii r_j/2_
C=============================================================================
C Loading file 'table4.dat' ! Chemical Models at the Stage of Wind Ejection
C Format for file interpretation
1 format(
+ F5.3,1X,F6.1,1X,F4.2,1X,F4.2,1X,F7.5,1X,F4.2,1X,F5.3,1X,F5.3,
+ 1X,F6.4,1X,F6.4,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,
+ E8.2,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,66
read(1,'(A121)')ar__
read(ar__,1)
+ M_LT12(i__),nu(i__),zeta(i__),tau(i__),M_Lt(i__),Age(i__),
+ G_rt(i__),S_rt(i__),Zmax(i__),Zmean(i__),Psi(i__),Omegag(i__),
+ Eg(i__),ESNI(i__),ESNII(i__),ESW(i__),r(i__)
c ..............Just test output...........
write(6,1)
+ M_LT12(i__),nu(i__),zeta(i__),tau(i__),M_Lt(i__),Age(i__),
+ G_rt(i__),S_rt(i__),Zmax(i__),Zmean(i__),Psi(i__),Omegag(i__),
+ Eg(i__),ESNI(i__),ESNII(i__),ESW(i__),r(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Integrated magnitude and colours of galaxy models
C Format for file interpretation
2 format(
+ F5.3,1X,F7.2,1X,F4.2,1X,F7.5,1X,F6.3,1X,F7.3,1X,F7.3,1X,F5.3,
+ 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,
+ F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,197
read(1,'(A103)')ar__1
read(ar__1,2)
+ M_lt12_1(i__),nu_1(i__),tau_1(i__),M_lt_1(i__),Age_1(i__),
+ Mbol(i__),Mvis(i__),U_B(i__),B_V(i__),V_R(i__),V_I(i__),
+ V_J(i__),V_H(i__),V_K(i__),v1550_V(i__),Rad(i__)
c ..............Just test output...........
write(6,2)
+ M_lt12_1(i__),nu_1(i__),tau_1(i__),M_lt_1(i__),Age_1(i__),
+ Mbol(i__),Mvis(i__),U_B(i__),B_V(i__),V_R(i__),V_I(i__),
+ V_J(i__),V_H(i__),V_K(i__),v1550_V(i__),Rad(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end