Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/524/A45 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-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/524/A45 Overproduction factors of s-nuclei in massive stars (Pumo+, 2010)
*================================================================================
*Convective overshooting and production of s-nuclei in massive stars during their
*core He-burning phase.
* Pumo M.L., Contino G., Bonanno A., Zappala R.A.
* <Astron. Astrophys. 524, A45 (2010)>
* =2010A&A...524A..45P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea4.dat' ! Overproduction factors for all the models with
initial metallicity Z=0.02
integer*4 nr__
parameter (nr__=49) ! Number of records
character*135 ar__ ! Full-size record
integer*4 A ! [69/209] Mass number
character*2 El ! Nuclide (chemical) symbol
real*4 M15T07 ! ? Overproduction factors obtained by The,
* El Eid & Meyer (2007ApJ...655.1058T) for
* their Z=0.02, M=15M_{sun}_ stellar model (G1)
real*4 M15f_001 ! Overproduction factors for our Z=0.02,
* M=15M_{sun}_ stellar model with overshooting
* parameter f=0.00001 (G1)
real*4 M15f1 ! Overproduction factors for our Z=0.02,
* M=15M_{sun}_ stellar model with overshooting
* parameter f=0.01 (G1)
real*4 M15f2 ! Overproduction factors for our Z=0.02,
* M=15M_{sun}_ stellar model with overshooting
* parameter f=0.02 (G1)
real*4 M15f3_5 ! Overproduction factors for our Z=0.02,
* M=15M_{sun}_ stellar model with overshooting
* parameter f=0.035 (G1)
real*4 M20T07 ! ? Overproduction factors obtained by The,
* El Eid & Meyer (2007ApJ...655.1058T) for
* their Z=0.02, M=20M_{sun}_ stellar model (G1)
real*4 M20f0001 ! Overproduction factors for our Z=0.02,
* M=20M_{sun}_ stellar model with overshooting
* parameter f=0.00001 (G1)
real*4 M20f1 ! Overproduction factors for our Z=0.02,
* M=20M_{sun}_ stellar model with overshooting
* parameter f=0.01 (G1)
real*4 M20f2 ! Overproduction factors for our Z=0.02,
* M=20M_{sun}_ stellar model with overshooting
* parameter f=0.02 (G1)
real*4 M20f3_5 ! Overproduction factors for our Z=0.02,
* M=20M_{sun}_ stellar model with overshooting
* parameter f=0.035 (G1)
real*4 M25T07 ! ? Overproduction factors obtained by The,
* El Eid & Meyer (2007ApJ...655.1058T) for
* their Z=0.02, M=25M_{sun}_ stellar model (G1)
real*4 M25f_001 ! Overproduction factors for our Z=0.02,
* M=25M_{sun}_ stellar model with overshooting
* parameter f=0.00001 (G1)
real*4 M25f1 ! Overproduction factors for our Z=0.02,
* M=25M_{sun}_ stellar model with overshooting
* parameter f=0.01 (G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea5.dat' ! Overproduction factors for all the M=20M_{sun}_
models with initial metallicity Z<0.02
integer*4 nr__1
parameter (nr__1=49) ! Number of records
character*125 ar__1 ! Full-size record
integer*4 A_1 ! [69/209] Mass number
character*2 El_1 ! Nuclide (chemical) symbol
real*4 M20Z_01f_001 ! Overproduction factors for our
* Z=0.0001, M=20M_{sun}_ stellar model with
* overshooting parameter f=0.00001 (G1)
real*4 M20Z_01f1 ! Overproduction factors for our
* Z=0.0001, M=20M_{sun}_ stellar model with
* overshooting parameter f=0.01 (G1)
real*4 M20Z_01f2 ! Overproduction factors for our
* Z=0.0001, M=20M_{sun}_ stellar model with
* overshooting parameter f=0.02 (G1)
real*4 M20Z_01f3_5 ! Overproduction factors for our
* Z=0.0001, M=20M_{sun}_ stellar model with
* overshooting parameter f=0.035 (G1)
real*4 M20Z_5f_001 ! Overproduction factors for our
* Z=0.005, M=20M_{sun}_ stellar model with
* overshooting parameter f=0.00001 (G1)
real*4 M20Z_5f1 ! Overproduction factors for our
* Z=0.005, M=20M_{sun}_ stellar model with
* overshooting parameter f=0.01 (G1)
real*4 M20Z_5f2 ! Overproduction factors for our
* Z=0.005, M=20M_{sun}_ stellar model with
* overshooting parameter f=0.02 (G1)
real*4 M20Z_5f3_5 ! Overproduction factors for our
* Z=0.005, M=20M_{sun}_ stellar model with
* overshooting parameter f=0.035 (G1)
real*4 M20Z1f_001 ! Overproduction factors for our
* Z=0.01, M=20M_{sun}_ stellar model with
* overshooting parameter f=0.00001 (G1)
real*4 M20Z1f1 ! Overproduction factors for our
* Z=0.01, M=20M_{sun}_ stellar model with
* overshooting parameter f=0.01 (G1)
real*4 M20Z1f2 ! Overproduction factors for our
* Z=0.01, M=20M_{sun}_ stellar model with
* overshooting parameter f=0.02 (G1)
real*4 M20Z1f3_5 ! Overproduction factors for our
* Z=0.01, M=20M_{sun}_ stellar model with
* overshooting parameter f=0.035 (G1)
C=============================================================================
C Loading file 'tablea4.dat' ! Overproduction factors for all the models with
* initial metallicity Z=0.02
C Format for file interpretation
1 format(
+ I3,A2,2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3,
+ 2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3)
C Effective file loading
open(unit=1,status='old',file=
+'tablea4.dat')
write(6,*) '....Loading file: tablea4.dat'
do i__=1,49
read(1,'(A135)')ar__
read(ar__,1)
+ A,El,M15T07,M15f_001,M15f1,M15f2,M15f3_5,M20T07,M20f0001,
+ M20f1,M20f2,M20f3_5,M25T07,M25f_001,M25f1
if(ar__(8:15) .EQ. '') M15T07 = rNULL__
if(ar__(58:65) .EQ. '') M20T07 = rNULL__
if(ar__(108:115) .EQ. '') M25T07 = rNULL__
c ..............Just test output...........
write(6,1)
+ A,El,M15T07,M15f_001,M15f1,M15f2,M15f3_5,M20T07,M20f0001,
+ M20f1,M20f2,M20f3_5,M25T07,M25f_001,M25f1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tablea5.dat' ! Overproduction factors for all the M=20M_{sun}_
* models with initial metallicity Z<0.02
C Format for file interpretation
2 format(
+ I3,A2,2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3,
+ 2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3,2X,E8.3)
C Effective file loading
open(unit=1,status='old',file=
+'tablea5.dat')
write(6,*) '....Loading file: tablea5.dat'
do i__=1,49
read(1,'(A125)')ar__1
read(ar__1,2)
+ A_1,El_1,M20Z_01f_001,M20Z_01f1,M20Z_01f2,M20Z_01f3_5,
+ M20Z_5f_001,M20Z_5f1,M20Z_5f2,M20Z_5f3_5,M20Z1f_001,M20Z1f1,
+ M20Z1f2,M20Z1f3_5
c ..............Just test output...........
write(6,2)
+ A_1,El_1,M20Z_01f_001,M20Z_01f1,M20Z_01f2,M20Z_01f3_5,
+ M20Z_5f_001,M20Z_5f1,M20Z_5f2,M20Z_5f3_5,M20Z1f_001,M20Z1f1,
+ M20Z1f2,M20Z1f3_5
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end