Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/598/A116 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-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/A+A/598/A116 A grid of 1D low-mass star formation models (Vaytet+, 2017) *================================================================================ *A grid of one-dimensional low-mass star formation collapse models. * Vaytet N., Haugbolle T. * <Astron. Astrophys. 598, A116 (2017)> * =2017A&A...598A.116V (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec1.dat' ! Initial parameters and Larson core properties integer*4 nr__ parameter (nr__=143) ! Number of records character*279 ar__ ! Full-size record character*6 Run (nr__) ! Run number real*4 M0 (nr__) ! (Msun) Initial cloud mass real*4 T0 (nr__) ! (K) Initial cloud temperature real*4 R0 (nr__) ! (AU) Initial cloud radius real*4 rhoc (nr__) ! (g/cm3) Initial cloud central gas density real*4 eps (nr__) ! Ratio of Bonnor-Ebert mass to initial cloud mass real*4 tff1 (nr__) ! (kyr) Free-fall time computed from central density real*4 tff2 (nr__) ! (kyr) Free-fall time computed from average density real*4 tff3 (nr__) ! (kyr) Modified free-fall time real*4 tsound (nr__) ! (kyr) Cloud sound crossing time real*4 R1 (nr__) ! (AU) First Larson core radius real*4 M1 (nr__) ! (Msun) First Larson core mass real*4 Mdot1 (nr__) ! (Msun/yr) First Larson core mass accretion rate real*4 Lacc1 (nr__) ! (Lsun) First Larson core accretion luminosity real*4 Lrad1 (nr__) ! (Lsun) First Larson core radiative luminosity real*4 taufc (nr__) ! (yr) First Larson core lifetime real*4 R2 (nr__) ! (AU) Second Larson core radius real*4 M2 (nr__) ! (Msun) Second Larson core mass real*4 Mdot2 (nr__) ! (Msun/yr) Second Larson core mass accretion rate real*4 Lacc2 (nr__) ! (Lsun) Second Larson core accretion luminosity real*4 Lrad2 (nr__) ! (Lsun) Second Larson core radiative luminosity real*4 Lout (nr__) ! (Lsun) Luminosity at the grid outer edge C============================================================================= C Loading file 'tablec1.dat' ! Initial parameters and Larson core properties C Format for file interpretation 1 format( + A6,2X,E11.5,2X,E11.5,2X,E11.5,2X,E11.5,2X,E11.5,2X,E11.5,2X, + E11.5,2X,E11.5,2X,E11.5,2X,E11.5,2X,E11.5,2X,E11.5,2X,E11.5, + 2X,E11.5,2X,E11.5,2X,E11.5,2X,E11.5,2X,E11.5,2X,E11.5,2X, + E11.5,2X,E11.5) C Effective file loading open(unit=1,status='old',file= +'tablec1.dat') write(6,*) '....Loading file: tablec1.dat' do i__=1,143 read(1,'(A279)')ar__ read(ar__,1) + Run(i__),M0(i__),T0(i__),R0(i__),rhoc(i__),eps(i__),tff1(i__), + tff2(i__),tff3(i__),tsound(i__),R1(i__),M1(i__),Mdot1(i__), + Lacc1(i__),Lrad1(i__),taufc(i__),R2(i__),M2(i__),Mdot2(i__), + Lacc2(i__),Lrad2(i__),Lout(i__) c ..............Just test output........... write(6,1) + Run(i__),M0(i__),T0(i__),R0(i__),rhoc(i__),eps(i__),tff1(i__), + tff2(i__),tff3(i__),tsound(i__),R1(i__),M1(i__),Mdot1(i__), + Lacc1(i__),Lrad1(i__),taufc(i__),R2(i__),M2(i__),Mdot2(i__), + Lacc2(i__),Lrad2(i__),Lout(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end