Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/609/A10 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-Apr-18
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/609/A10 NGC2264 structure and star formation history (Venuti+, 2018)
*================================================================================
*The Gaia-ESO Survey and CSI 2264: Substructures, disks, and sequential star
*formation in the young open cluster NGC 2264.
* Venuti L., Prisinzano L., Sacco G.G., Flaccomio E., Bonito R., Damiani F.,
* Micela G., Guarcello M.G., Randich S., Stauffer J.R., Cody A.M.,
* Jeffries R.D., Alencar S.H.P., Alfaro E.J., Lanzafame A.C., Pancino E.,
* Bayo A., Carraro G., Costado M.T., Frasca A., Jofre P., Morbidelli L.,
* Sousa S.G., Zaggia S.
* <Astron. Astrophys. 609, A10 (2018)>
* =2018A&A...609A..10V (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tableb1.dat' ! List of the Gaia-ESO Survey targets in the
NGC2264 field and of their CSI 2264 counterpart
integer*4 nr__
parameter (nr__=1892) ! Number of records
character*140 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*16 CNAME (nr__) ! Gaia-ESO Survey target identifier
character*13 CSIMon (nr__) ! ? CSI 2264 object identifier
real*8 RAdeg (nr__) ! (deg) Right ascension (J2000)
real*8 DEdeg (nr__) ! (deg) Declination (J2000)
character*1 Memb (nr__) ! [*] Membership flag (1)
real*4 gmag (nr__) ! (mag) ? SDSS g-band photometry
real*4 rmag (nr__) ! (mag) ? SDSS r-band photometry
real*4 imag (nr__) ! (mag) ? SDSS i-band photometry
character*3 Class (nr__) ! [II III] Disk classification (2)
character*1 Acc (nr__) ! [Y/N] Accreting status (3)
real*4 gamma (nr__) ! ? gamma-index (4)
integer*4 Teff (nr__) ! (K) ? Stellar effective temperature
integer*4 EW_Li (nr__) ! (0.1pm) ? Lithium equivalent width, in milliAngstrom
real*4 EW_Ha (nr__) ! (0.1nm) ? Halpha equivalent width, in Angstrom
integer*4 W10_Ha (nr__) ! (km/s) ? Halpha width at 10% intensity
real*4 D_r_Ha (nr__) ! (mag) ? Photometric (r-Halpha) excess (5)
real*4 E_u_r (nr__) ! (mag) ? Photometric UV excess (6)
real*4 AV (nr__) ! (mag) ? Individual visual extinction estimate
real*4 Lbol (nr__) ! (Lsun) ? Bolometric luminosity
real*4 Mstar (nr__) ! (Msun) ? Stellar mass
real*4 Age (nr__) ! (Myr) ? Individual age estimate
*Note (1): "*" = member.
*Note (2): Disk classification as follows:
* II = disk-bearing
* III = disk-free
*Note (3): Accreting status as follows:
* Y = accreting
* N = non-accreting
*Note (4): gravity indicator defined in Damiani et al. (2014A&A...566A..50D)
*Note (5): measured D(r-Ha) larger than the threshold indicates Halpha emitter
* (potential accreting object).
*Note (6): strong (more negative) E(u-r) is indicative of ongoing accretion.
C=============================================================================
C Loading file 'tableb1.dat' ! List of the Gaia-ESO Survey targets in the
* NGC2264 field and of their CSI 2264 counterpart
C Format for file interpretation
1 format(
+ A16,1X,A13,1X,F9.5,1X,F8.5,1X,A1,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ A3,1X,A1,1X,F5.3,1X,I4,1X,I3,1X,F5.1,1X,I3,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F6.3,1X,F4.2,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'tableb1.dat')
write(6,*) '....Loading file: tableb1.dat'
do i__=1,1892
read(1,'(A140)')ar__
read(ar__,1)
+ CNAME(i__),CSIMon(i__),RAdeg(i__),DEdeg(i__),Memb(i__),
+ gmag(i__),rmag(i__),imag(i__),Class(i__),Acc(i__),gamma(i__),
+ Teff(i__),EW_Li(i__),EW_Ha(i__),W10_Ha(i__),D_r_Ha(i__),
+ E_u_r(i__),AV(i__),Lbol(i__),Mstar(i__),Age(i__)
if(ar__(53:58) .EQ. '') gmag(i__) = rNULL__
if(ar__(60:65) .EQ. '') rmag(i__) = rNULL__
if(ar__(67:72) .EQ. '') imag(i__) = rNULL__
if(ar__(80:84) .EQ. '') gamma(i__) = rNULL__
if(ar__(86:89) .EQ. '') Teff(i__) = iNULL__
if(ar__(91:93) .EQ. '') EW_Li(i__) = iNULL__
if(ar__(95:99) .EQ. '') EW_Ha(i__) = rNULL__
if(ar__(101:103) .EQ. '') W10_Ha(i__) = iNULL__
if(ar__(105:109) .EQ. '') D_r_Ha(i__) = rNULL__
if(ar__(111:115) .EQ. '') E_u_r(i__) = rNULL__
if(ar__(117:121) .EQ. '') AV(i__) = rNULL__
if(ar__(123:128) .EQ. '') Lbol(i__) = rNULL__
if(ar__(130:133) .EQ. '') Mstar(i__) = rNULL__
if(ar__(135:140) .EQ. '') Age(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ CNAME(i__),CSIMon(i__),RAdeg(i__),DEdeg(i__),Memb(i__),
+ gmag(i__),rmag(i__),imag(i__),Class(i__),Acc(i__),gamma(i__),
+ Teff(i__),EW_Li(i__),EW_Ha(i__),W10_Ha(i__),D_r_Ha(i__),
+ E_u_r(i__),AV(i__),Lbol(i__),Mstar(i__),Age(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end