Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/357/572 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-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/357/572 Dust formation in WC stars (Cherchneff+, 2000)
*================================================================================
*Dust formation in carbon-rich Wolf-Rayet stars
*I. Chemistry of small carbon clusters and silicon species
* Cherchneff I., Le Teuff Y.H., Williams P.M., Tielens A.G.G.M.
* <Astron. Astrophys. 357, 572 (2000)>
* =2000A&A...357..572C
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea.dat' ! Reaction data file
integer*4 nr__
parameter (nr__=407) ! Number of records
character*102 ar__ ! Full-size record
integer*4 Index ! Number of reaction
character*7 R1 ! Reactant 1
character*7 R2 ! Reactant 2
character*7 R3 ! Reactant 3
character*7 P1 ! Product 1
character*7 P2 ! Product 2
character*7 P3 ! Product 3
real*4 alpha ! (cm3/s) {alpha} coefficient (1)
real*4 beta ! {beta} coefficient (1)
real*8 gamma ! (K) {gamma} coefficient (1)
character*23 Ref ! Reference (2)
*Note (1): {alpha} is in units of cm^6^/s for thermolecular reactions
* (index = 1-27) and in units of s^-1^ for photo processes (index = 55-108).
* The rate k at temperature T is
* k = {alpha} * (T/300)^{beta}^ * exp(-{gamma}/T)
*Note (2): References written in brackets as reactions refer to this reaction.
* The format has been contracted so that (X Y Z > T U) means:
* X + Y + Z --> T + U
* References with an 'E' have an estimated rate, a 'C' a rate calculated
* from cross sections.
* References:
* AH86 = Anicich & Huntress, 1986ApJS...62..553A
* AS97 = Andreazza & Singh, 1997MNRAS.287..287A
* AVG93 = Anicich, 1993ApJS...84..215A
* Baulch94 = Baulch et al., 1994, J. Phys. Chem. Ref. Data 23, 847
* DDY90 = Dalgarno et al., 1990ApJ...349..675D
* DP79 = Donnelly & Pasternack, 1979, Chem. Phys. 39, 427
* FHFM79 = Filseth et al., 1979, Chem. Phys. Lett. 61, 288
* MDM77 = Mann, 1977, Chem. Phys. Lett. 47, 106
* NIST = Mallard et al., 1994, NIST Chemical Kinetics Database
* PDAN89 = Petuchowski et al., 1989ApJ...342..406P
* PST = 1988, Physica Scripta, volume T, 28
* R95 = UMIST Database, 1995 version
* RMW80 = Reisler et al., 1980, Chem. Phys. 47, 49
* RW80 = Rakshit & Warneck, 1980, J. Chem. Soc. Farad. II 76, 1084
* WC98 = Willacy & Cherchneff, 1998, Cat. <J/A+A/330/676>
* WFB91 = Wlodek et al., 1991, J. Am. Chem. Soc. 113, 4461
C=============================================================================
C Loading file 'tablea.dat' ! Reaction data file
C Format for file interpretation
1 format(
+ 1X,I4,1X,A7,1X,A7,1X,A7,1X,A7,1X,A7,1X,A7,E8.2,F6.2,F9.1,1X,
+ A23)
C Effective file loading
open(unit=1,status='old',file=
+'tablea.dat')
write(6,*) '....Loading file: tablea.dat'
do i__=1,407
read(1,'(A102)')ar__
read(ar__,1)Index,R1,R2,R3,P1,P2,P3,alpha,beta,gamma,Ref
c ..............Just test output...........
write(6,1)Index,R1,R2,R3,P1,P2,P3,alpha,beta,gamma,Ref
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end