Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/579/A66 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/579/A66 Accretion in {rho}-Ophiucus (Manara+, 2015)
*================================================================================
*X-Shooter study of accretion in {rho}-Ophiucus:
*very low-mass stars and brown dwarfs.
* Manara C.F., Testi L., Natta A., Alcala J.M.
* <Astron. Astrophys., 579, A66-66 (2015)>
* =2015A&A...579A..66M (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled1.dat' ! Properties of rho-Ophiuci young stellar objects
from Natta et al. (2006A&A...452..245N,
Cat. J/A+A/452/245) using distance of 125pc
integer*4 nr__
parameter (nr__=178) ! Number of records
character*74 ar__ ! Full-size record
integer*4 Seq ! Object sequential number
integer*4 ISO ! ISO-Oph number
character*1 m_ISO ! [ab] Multiplicity index on ISO
character*3 Class ! Class
real*4 logL_ ! ([Lsun]) Stellar luminosity
real*4 logTeff ! ([K]) Effective temperature
real*4 logM_ ! ([Msun]) ?=- Stellar mass (1)
character*9 Line ! Line identification
character*1 l_EW_line ! Limit flag on EW(line)
real*4 EW_line ! (0.1nm) ?=- Line equivalent width
character*1 l_logLline ! Limit flag on logLline
real*4 logLline ! ([Lsun]) ?=- Line luminosity
character*1 l_logLacc ! Limit flag on logLacc
real*4 logLacc ! ([Lsun]) ?=- Accretion luminosity
character*1 l_logdMacc_dt ! Limit flag on logdMacc/dt
real*4 logdMacc_dt ! ([Msun/yr]) ?=- Mass accretion rate
*Note (1): M* and age are derived using the evolutionary tracks of Baraffe et al.
* (1998A&A...337..403B, Cat. J/A+A/337/403) and assuming a single isochrone at
* 1Myr as explained in Rigliaco et al. (2011A&A...525A..47R, Cat. J/A+A/525/A47).
C=============================================================================
C Loading file 'tabled1.dat' ! Properties of rho-Ophiuci young stellar objects
* from Natta et al. (2006A&A...452..245N,
* Cat. J/A+A/452/245) using distance of 125pc
C Format for file interpretation
1 format(
+ I3,8X,I3,A1,1X,A3,1X,F5.2,1X,F4.2,1X,F5.2,1X,A9,1X,A1,F4.1,1X,
+ A1,F5.2,1X,A1,F5.2,1X,A1,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'tabled1.dat')
write(6,*) '....Loading file: tabled1.dat'
do i__=1,178
read(1,'(A74)')ar__
read(ar__,1)
+ Seq,ISO,m_ISO,Class,logL_,logTeff,logM_,Line,l_EW_line,
+ EW_line,l_logLline,logLline,l_logLacc,logLacc,l_logdMacc_dt,
+ logdMacc_dt
if (idig(ar__(32:36)).EQ.0) logM_ = rNULL__
if (idig(ar__(49:52)).EQ.0) EW_line = rNULL__
if (idig(ar__(55:59)).EQ.0) logLline = rNULL__
if (idig(ar__(62:66)).EQ.0) logLacc = rNULL__
if (idig(ar__(69:74)).EQ.0) logdMacc_dt = rNULL__
c ..............Just test output...........
write(6,1)
+ Seq,ISO,m_ISO,Class,logL_,logTeff,logM_,Line,l_EW_line,
+ EW_line,l_logLline,logLline,l_logLacc,logLacc,l_logdMacc_dt,
+ logdMacc_dt
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end
C Locate position of first digit in string; or return 0
integer function idig(c)
character*(*) c
character*1 c1
integer lc,i
lc=len(c)
idig=0
do i=1,lc
if(c(i:i).ne.' ') go to 1
end do
1 if(i.gt.lc) return
c1=c(i:i)
if(c1.eq.'.'.or.c1.eq.'-'.or.c1.eq.'+') i=i+1
if(i.gt.lc) return
c1=c(i:i)
if(c1.ge.'0'.and.c1.le.'9') idig=i
return
end