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