Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/392/1129 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/392/1129 Automatic observation rendering (AMORE) (Ng, 2002)
*================================================================================
*Automatic observation rendering (AMORE).
*I. On a synthetic stellar population's colour-magnitude diagram.
* Ng Y.K., Brogt E., Chiosi C., Bertelli G.
* <Astron. Astrophys. 392, 1129 (2002)>
* =2002A&A...392.1129N
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea1.dat' ! AMORE results with the test population as
specified in Sect. 4.3.1 of the paper
integer*4 nr__
parameter (nr__=163) ! Number of records
character*38 ar__ ! Full-size record
integer*4 Nmodel ! [1/162] Model number
real*4 pcross ! crossover probability
real*4 rcross ! multi-point crossover rate
real*4 rbrood ! amount of offspring two parents can have
real*4 pcreep ! creep mutation rate
real*4 pcorr ! correlated mutation rate
real*8 fA ! Fitness value
integer*4 Gen ! Generation number (1)
*Note (1): The generation number indicates at which generation the resulting
* fitness value f_A_ obtained with AMORE first emerged.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea2.dat' ! Results of running AMORE with one of the
astrophysical parameters fixed at its original
value
integer*4 nr__1
parameter (nr__1=48) ! Number of records
character*85 ar__1 ! Full-size record
character*12 Param ! Parameter name
integer*4 Nmodel_1 ! Model number
real*8 fA_1 ! Fitness value
real*8 logd ! (pc) Distance
real*4 AV ! (mag) Extinction
real*8 logtl ! ([Gyr]) Lower age limit
real*8 logth ! ([Gyr]) Upper age limit
real*8 v_Z_l ! ([Sun]) Lower metallicity limit
real*8 v_Z_h ! ([Sun]) Upper metallicity limit
real*4 alpha ! Slope for the Initial Mass Function power-law
real*4 beta ! Index for the Star Formation Rate exponential
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea3.dat' ! AMORE with one of the parameters fixed at one
sigma from its original value
integer*4 nr__2
parameter (nr__2=90) ! Number of records
character*88 ar__2 ! Full-size record
character*12 Param_1 ! Parameter name
integer*4 Offset ! Offset in {sigma} units
integer*4 Nmodel_2 ! Model number
real*8 fA_2 ! ? Fitness value
real*8 logd_1 ! (pc) ? Distance
real*4 AV_1 ! (mag) ? Extinction
real*8 logtl_1 ! ([Gyr]) ? Lower age limit
real*8 logth_1 ! ([Gyr]) ? Upper age limit
real*8 v_Z_l_1 ! ([Sun]) ? Lower metallicity limit
real*8 v_Z_h_1 ! ([Sun]) ? Upper metallicity limit
real*4 alpha_1 ! ? Slope for the Initial Mass Function power-law
real*4 beta_1 ! ? Index for the Star Formation Rate exponential
C=============================================================================
C Loading file 'tablea1.dat' ! AMORE results with the test population as
* specified in Sect. 4.3.1 of the paper
C Format for file interpretation
1 format(I3,1X,F4.2,1X,F4.2,1X,F4.2,1X,F3.1,1X,F3.1,1X,F7.5,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'tablea1.dat')
write(6,*) '....Loading file: tablea1.dat'
do i__=1,163
read(1,'(A38)')ar__
read(ar__,1)Nmodel,pcross,rcross,rbrood,pcreep,pcorr,fA,Gen
c ..............Just test output...........
write(6,1)Nmodel,pcross,rcross,rbrood,pcreep,pcorr,fA,Gen
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tablea2.dat' ! Results of running AMORE with one of the
* astrophysical parameters fixed at its original
* value
C Format for file interpretation
2 format(
+ A12,1X,I2,1X,F7.5,1X,F7.5,1X,F6.3,1X,F7.5,1X,F8.5,1X,F8.5,1X,
+ F7.5,1X,F5.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'tablea2.dat')
write(6,*) '....Loading file: tablea2.dat'
do i__=1,48
read(1,'(A85)')ar__1
read(ar__1,2)
+ Param,Nmodel_1,fA_1,logd,AV,logtl,logth,v_Z_l,v_Z_h,alpha,beta
c ..............Just test output...........
write(6,2)
+ Param,Nmodel_1,fA_1,logd,AV,logtl,logth,v_Z_l,v_Z_h,alpha,beta
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tablea3.dat' ! AMORE with one of the parameters fixed at one
* sigma from its original value
C Format for file interpretation
3 format(
+ A12,1X,I2,1X,I2,1X,F7.5,1X,F7.5,1X,F6.3,1X,F7.5,1X,F8.5,1X,
+ F8.5,1X,F7.5,1X,F5.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'tablea3.dat')
write(6,*) '....Loading file: tablea3.dat'
do i__=1,90
read(1,'(A88)')ar__2
read(ar__2,3)
+ Param_1,Offset,Nmodel_2,fA_2,logd_1,AV_1,logtl_1,logth_1,
+ v_Z_l_1,v_Z_h_1,alpha_1,beta_1
if(ar__2(20:26) .EQ. '') fA_2 = rNULL__
if(ar__2(28:34) .EQ. '') logd_1 = rNULL__
if(ar__2(36:41) .EQ. '') AV_1 = rNULL__
if(ar__2(43:49) .EQ. '') logtl_1 = rNULL__
if(ar__2(51:58) .EQ. '') logth_1 = rNULL__
if(ar__2(60:67) .EQ. '') v_Z_l_1 = rNULL__
if(ar__2(69:75) .EQ. '') v_Z_h_1 = rNULL__
if(ar__2(77:81) .EQ. '') alpha_1 = rNULL__
if(ar__2(83:88) .EQ. '') beta_1 = rNULL__
c ..............Just test output...........
write(6,3)
+ Param_1,Offset,Nmodel_2,fA_2,logd_1,AV_1,logtl_1,logth_1,
+ v_Z_l_1,v_Z_h_1,alpha_1,beta_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end