Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/666/1048 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-Mar-29 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/ApJ/666/1048 Supernova mixtures (Yoshida+, 2007) *================================================================================ *Supernova mixtures reproducing isotopic ratios of presolar grains. * Yoshida T. * <Astrophys. J., 666, 1048-1068 (2007)> * =2007ApJ...666.1048Y C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Abundances, isotopic ratios, and the C/O ratio of each layer in the supernova ejecta of the 3.3, 4, 6, and 8M_{sun}_ He star models integer*4 nr__ parameter (nr__=112) ! Number of records character*98 ar__ ! Full-size record real*4 Mass ! (solMass) Model mass (3.3, 4, 6 or 8 M_{sun}_) character*20 Param ! Abundance (for a specie) or isotopic ratio real*4 Ni ! Param value in the Ni layer (1) real*4 Si_S ! Param value in the Si/S layer (1) real*4 O_Si ! Param value in the O/Si layer (1) real*4 O_Ne ! Param value in the O/Ne layer (1) real*4 C_O ! Param value in the C/O layer (1) real*4 He_C ! Param value in the He/C layer (1) real*4 He_N ! Param value in the He/N layer (1) *Note (1): In this study, the supernova ejecta are divided into seven layers * based on the characteristics of the chemical composition distribution: * Ni, Si/S, O/Si, O/Ne, C/O or O/C, He/C, and He/N layers. C============================================================================= C Loading file 'table3.dat' ! Abundances, isotopic ratios, and the C/O ratio * of each layer in the supernova ejecta of the * 3.3, 4, 6, and 8M_{sun}_ He star models C Format for file interpretation 1 format( + F3.1,1X,A20,1X,E10.3,1X,E10.3,1X,E10.3,1X,E9.3,1X,E9.3,1X, + E9.3,1X,E10.3) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,112 read(1,'(A98)')ar__ read(ar__,1)Mass,Param,Ni,Si_S,O_Si,O_Ne,C_O,He_C,He_N c ..............Just test output........... write(6,1)Mass,Param,Ni,Si_S,O_Si,O_Ne,C_O,He_C,He_N c .......End.of.Just test output........... end do close(1) C============================================================================= stop end