Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/598/A116 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/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 ! Run number
real*4 M0 ! (Msun) Initial cloud mass
real*4 T0 ! (K) Initial cloud temperature
real*4 R0 ! (AU) Initial cloud radius
real*4 rhoc ! (g/cm3) Initial cloud central gas density
real*4 eps ! Ratio of Bonnor-Ebert mass to initial cloud mass
real*4 tff1 ! (kyr) Free-fall time computed from central density
real*4 tff2 ! (kyr) Free-fall time computed from average density
real*4 tff3 ! (kyr) Modified free-fall time
real*4 tsound ! (kyr) Cloud sound crossing time
real*4 R1 ! (AU) First Larson core radius
real*4 M1 ! (Msun) First Larson core mass
real*4 Mdot1 ! (Msun/yr) First Larson core mass accretion rate
real*4 Lacc1 ! (Lsun) First Larson core accretion luminosity
real*4 Lrad1 ! (Lsun) First Larson core radiative luminosity
real*4 taufc ! (yr) First Larson core lifetime
real*4 R2 ! (AU) Second Larson core radius
real*4 M2 ! (Msun) Second Larson core mass
real*4 Mdot2 ! (Msun/yr) Second Larson core mass accretion rate
real*4 Lacc2 ! (Lsun) Second Larson core accretion luminosity
real*4 Lrad2 ! (Lsun) Second Larson core radiative luminosity
real*4 Lout ! (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,M0,T0,R0,rhoc,eps,tff1,tff2,tff3,tsound,R1,M1,Mdot1,Lacc1,
+ Lrad1,taufc,R2,M2,Mdot2,Lacc2,Lrad2,Lout
c ..............Just test output...........
write(6,1)
+ Run,M0,T0,R0,rhoc,eps,tff1,tff2,tff3,tsound,R1,M1,Mdot1,Lacc1,
+ Lrad1,taufc,R2,M2,Mdot2,Lacc2,Lrad2,Lout
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end