Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/466/641 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/A+A/466/641 Reaction rates of NeNa-MgAl chains in AGB stage (Izzard+, 2007)
*================================================================================
*Reaction rate uncertainties and the operation of the NeNa and MgAl chains during
*HBB in intermediate-mass AGB stars.
* Izzard R.G., Lugaro M., Karakas A.I., Iliadis C., van Raai M.
* <Astron. Astrophys. 466, 641 (2007)>
* =2007A&A...466..641I
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table13.dat' ! Complete results for a relatively small subset of
synthetic models obtained by varying only the six most
uncertain reactions between their upper and lower limits
integer*4 nr__
parameter (nr__=576) ! Number of records
character*97 ar__ ! Full-size record
integer*4 Mass (nr__) ! (solMass) [4/6] Model initial mass (1)
real*4 Z (nr__) ! Model initial Z abundance (1)
* (0.0001, 0.004, 0.008, 0.02)
character*2 r1 (nr__) ! [UL] ^22^Ne(p,{gamma})^23^Na reaction
* upper (UL) or lower (LL) limit
character*2 r2 (nr__) ! [UL] ^23^Na(p,{gamma})^24^Mg reaction
* upper (UL) or lower (LL) limit
character*2 r3 (nr__) ! [UL] ^23^Na(p,{alpha})^20^Ne reaction
* upper (UL) or lower (LL) limit
character*2 r4 (nr__) ! [UL] ^25^Mg(p,{gamma})^26Al->^26^Mg reaction
* upper (UL) or lower (LL) limit
character*2 r5 (nr__) ! [UL] ^26^Mg(p,{gamma})^27^Al reaction
* upper (UL) or lower (LL) limit
character*2 r6 (nr__) ! [UL] ^26^Al(p,{gamma})^27^Si->^27^Al reaction
* upper (UL) or lower (LL) limit
real*4 v20Ne (nr__) ! ^20^Ne yield relative to control value (2)
real*4 v21Ne (nr__) ! ^21^Ne yield relative to control value (2)
real*4 v22Ne (nr__) ! ^22^Ne yield relative to control value (2)
real*8 v23Na (nr__) ! ^23^Na yield relative to control value (2)
real*8 v24Mg (nr__) ! ^24^Mg yield relative to control value (2)
real*4 v25Mg (nr__) ! ^25^Mg yield relative to control value (2)
real*4 v26Mg (nr__) ! ^26^Mg yield relative to control value (2)
real*8 v26Al (nr__) ! ^26^Al yield relative to control value (2)
real*4 v27Al (nr__) ! ^27^Al yield relative to control value (2)
*Note (1): Models considered have the parameters:
* M=4 Z=0.0001;
* M=5 Z=0.0001;
* M=5 Z=0.004;
* M=5 Z=0.008;
* M=5 Z=0.02;
* M=6 Z=0.0001;
* M=6 Z=0.004;
* M=6 Z=0.008;
* M=6 Z=0.02
*Note (2): Ratio of result yield to control value, where positive values
* indicate extra production, negative values extra destruction,
* and zero means no change.
C=============================================================================
C Loading file 'table13.dat' ! Complete results for a relatively small subset of
* synthetic models obtained by varying only the six most
* uncertain reactions between their upper and lower limits
C Format for file interpretation
1 format(
+ 2X,I1,3X,F6.4,1X,A2,1X,A2,1X,A2,1X,A2,1X,A2,1X,A2,1X,F6.4,1X,
+ F6.4,1X,F6.4,1X,F8.4,1X,F7.4,1X,F6.4,1X,F6.4,1X,F7.5,1X,F6.4)
C Effective file loading
open(unit=1,status='old',file=
+'table13.dat')
write(6,*) '....Loading file: table13.dat'
do i__=1,576
read(1,'(A97)')ar__
read(ar__,1)
+ Mass(i__),Z(i__),r1(i__),r2(i__),r3(i__),r4(i__),r5(i__),
+ r6(i__),v20Ne(i__),v21Ne(i__),v22Ne(i__),v23Na(i__),
+ v24Mg(i__),v25Mg(i__),v26Mg(i__),v26Al(i__),v27Al(i__)
c ..............Just test output...........
write(6,1)
+ Mass(i__),Z(i__),r1(i__),r2(i__),r3(i__),r4(i__),r5(i__),
+ r6(i__),v20Ne(i__),v21Ne(i__),v22Ne(i__),v23Na(i__),
+ v24Mg(i__),v25Mg(i__),v26Mg(i__),v26Al(i__),v27Al(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end