Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/603/A118 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-20
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/603/A118 Systematic survey of wind mass loss (Renzo+, 2017)
*================================================================================
*Systematic survey of the effects of wind mass loss algorithms on
*the evolution of single massive stars.
* Renzo M., Ott C.D., Shore S.N., de Mink S.E.
* <Astron. Astrophys. 603, A118 (2017)>
* =2017A&A...603A.118R (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table34.dat' ! Data from tables 3 and 4: end of mass loss phase
integer*4 nr__
parameter (nr__=94) ! Number of records
character*48 ar__ ! Full-size record
integer*4 Mzams ! (Msun) Zero age main sequence mass
real*4 eta ! Wind efficiency parameter
character*8 ID ! Wind combination identifier
real*4 M ! (Msun) Final mass
real*4 MHe ! (Msun) Helium core mass
real*4 MCO ! (Msun) Carbon Oxygen core mass
integer*4 R ! (Rsun) Final radius
real*4 log10L ! ([Lsun]) log10 luminosity
real*4 log10Teff ! ([K]) log10 effective temperature
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Maximum spreads at the end of mass loss phase
integer*4 nr__1
parameter (nr__1=5) ! Number of records
character*22 ar__1 ! Full-size record
integer*4 Mzams_1 ! (Msun) Zero age main sequence mass
integer*4 DeltaR ! (Rsun) Maximum spread in radii
real*4 DeltaM ! (Msun) Maximum spread in final masses
real*4 DeltaMHe ! (Msun) Maximum spread He core mass
real*4 DeltaMCO ! (Msun) Maximum spread CO core mass
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Models at the end of the hot phase of evolution
integer*4 nr__2
parameter (nr__2=30) ! Number of records
character*43 ar__2 ! Full-size record
character*1 hotwind ! [VK] Model for hotwind (1)
integer*4 Mzams_2 ! (Msun) Zero age main sequence mass
real*4 eta_1 ! Wind efficiency parameter
real*4 R_1 ! (Rsun) Radius at end hot phase
real*4 L ! (10+4Lsun) Luminosity at end hot phase
real*4 Mendhot ! (Msun) Mass at the end of hot phase
real*4 MHe_1 ! (Msun) Helium core mass (at end hot phase)
real*8 age ! (10+6yr) Duration of the hot phase
*Note (1): Model as follows:
* V = Vink et al. (2000A&A...362..295V, 2001A&A...369..574V)
* K = Kudritzki et al. (1989A&A...219..205K)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Models at oxygen depletion
integer*4 nr__3
parameter (nr__3=43) ! Number of records
character*40 ar__3 ! Full-size record
integer*4 Mzams_3 ! (Msun) Zero age main sequence mass
real*4 eta_2 ! Wind efficiency parameter
character*4 ID_1 ! Wind combination identifier
integer*4 R_2 ! (Rsun) Radius at oxygen depletion
real*4 M_1 ! (Msun) Final masses at oxygen depletion
real*4 MHe_2 ! (Msun) He core mass at oxygen depletion
real*4 MCO_1 ! (Msun) CO core mass at oxygen depletion
real*4 xi ! compactness parameter at O depl.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Models at the onset of core collapse
integer*4 nr__4
parameter (nr__4=6) ! Number of records
character*44 ar__4 ! Full-size record
integer*4 Mzams_4 ! (Msun) Zero age main sequence mass
real*4 eta_3 ! Wind efficiency parameter
character*4 ID_2 ! Wind combination identifier
real*4 xi_1 ! Compactness parameter at pre-SN
real*4 M4 ! (Msun) Mass coordinate of entropy s=4
real*4 mu4 ! Ertl et al. (2016ApJ...818..124E)
* parameter (dm/dr at s=4)
real*4 Mrho6 ! (Msun) Mass coordinate of density=1e6
real*4 MCO_2 ! (Msun) pre-SN CO core mass
real*4 MFe ! (Msun) pre-SN iron core mass
C=============================================================================
C Loading file 'table34.dat' ! Data from tables 3 and 4: end of mass loss phase
C Format for file interpretation
1 format(
+ I2,1X,F4.2,1X,A8,1X,F5.2,1X,F5.2,1X,F5.2,1X,I3,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table34.dat')
write(6,*) '....Loading file: table34.dat'
do i__=1,94
read(1,'(A48)')ar__
read(ar__,1)Mzams,eta,ID,M,MHe,MCO,R,log10L,log10Teff
c ..............Just test output...........
write(6,1)Mzams,eta,ID,M,MHe,MCO,R,log10L,log10Teff
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Maximum spreads at the end of mass loss phase
C Format for file interpretation
2 format(I2,1X,I3,1X,F5.2,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,5
read(1,'(A22)')ar__1
read(ar__1,2)Mzams_1,DeltaR,DeltaM,DeltaMHe,DeltaMCO
c ..............Just test output...........
write(6,2)Mzams_1,DeltaR,DeltaM,DeltaMHe,DeltaMCO
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Models at the end of the hot phase of evolution
C Format for file interpretation
3 format(A1,1X,I2,1X,F4.2,2X,F6.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F7.4)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,30
read(1,'(A43)')ar__2
read(ar__2,3)hotwind,Mzams_2,eta_1,R_1,L,Mendhot,MHe_1,age
c ..............Just test output...........
write(6,3)hotwind,Mzams_2,eta_1,R_1,L,Mendhot,MHe_1,age
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Models at oxygen depletion
C Format for file interpretation
4 format(I2,1X,F4.2,1X,A4,1X,I4,1X,F5.2,1X,F5.2,1X,F4.2,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,43
read(1,'(A40)')ar__3
read(ar__3,4)Mzams_3,eta_2,ID_1,R_2,M_1,MHe_2,MCO_1,xi
c ..............Just test output...........
write(6,4)Mzams_3,eta_2,ID_1,R_2,M_1,MHe_2,MCO_1,xi
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Models at the onset of core collapse
C Format for file interpretation
5 format(
+ I2,1X,F4.2,1X,A4,1X,F5.3,1X,F4.2,1X,F5.3,1X,F4.2,1X,F4.2,1X,
+ F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,6
read(1,'(A44)')ar__4
read(ar__4,5)Mzams_4,eta_3,ID_2,xi_1,M4,mu4,Mrho6,MCO_2,MFe
c ..............Just test output...........
write(6,5)Mzams_4,eta_3,ID_2,xi_1,M4,mu4,Mrho6,MCO_2,MFe
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end