Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/194/6 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-19 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/ApJS/194/6 Candidate X-ray emitting OB stars in Carina (Povich+, 2011) *================================================================================ *Candidate X-ray-emitting OB stars in the Carina nebula identified via infrared *spectral energy distributions. * Povich M.S., Townsley L.K., Broos P.S., Gagne M., Babler B.L., * Indebetouw R., Majewski S.R., Meade M.R., Getman K.V., Robitaille T.P., * Townsend R.H.D. * <Astrophys. J. Suppl. Ser., 194, 6 (2011)> * =2011ApJS..194....6P C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Validation sample of cataloged Carina OB stars: SED-fitting results and IR photometry integer*4 nr__ parameter (nr__=182) ! Number of records character*97 ar__ ! Full-size record character*11 Name ! Star name from Gagne, 2011, Cat. J/ApJS/194/5 real*4 AvBV ! (mag) ? BV Extinction from Gagne 2011, * Cat. J/ApJS/194/5 real*4 Teff ! (kK) Effective temperature (1) real*4 logLbol ! ([Lsun]) Bolometric luminosity real*4 Av ! (mag) Extinction from SED fitting character*17 SSTGLMA ! SSTGLMA name (GLLL.llll+BB.bbbb) (G1) real*4 Jmag ! (mag) ? 2MASS J-band magnitude real*4 Hmag ! (mag) ? 2MASS H-band magnitude real*4 Ksmag ! (mag) ? 2MASS Ks-band magnitude real*4 v_3_6_ ! (mag) ? Spitzer/IRAC 3.6um band magnitude real*4 v_4_5_ ! (mag) ? Spitzer/IRAC 4.5um band magnitude real*4 v_5_8_ ! (mag) ? Spitzer/IRAC 5.8um band magnitude real*4 v_8_0_ ! (mag) ? Spitzer/IRAC 8.0um band magnitude character*5 IREx ! IR excess emission? (2) *Note (1): From the Martins et al. (2005A&A...436.1049M) calibrations of * T_eff_ vs. spectral type for O stars, extended to early B stars by * Crowther (2005IAUS..227..389C). Spectral types were compiled from * various sources by Gagne, 2011, Cat. J/ApJS/194/5. *Note (2): Source exhibits marginal IR excess emission in the specified IRAC * band(s) are indicated with I2=4.5um, I3=5.8um, I4=8.0um. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Candidate X-ray-emitting OB stars integer*4 nr__1 parameter (nr__1=94) ! Number of records character*120 ar__1 ! Full-size record integer*4 Seq ! OB candidate number character*1 f_Seq ! [f] X-ray flare for candidate 41 (1) character*18 CXOGNC ! CXOGNC designation (HHMMSS.ss+DDMMSS.s; J2000)(2) real*4 Teff_1 ! (kK) Effective temperature (3) real*4 logLbol_1 ! ([Lsun]) Bolometric luminosity (3) real*4 Av_1 ! (mag) Extinction (3) character*17 SSTGLMA_1 ! SSTGLMA name (GLLL.llll+BB.bbbb) (G1) real*4 Jmag_1 ! (mag) ? 2MASS J-band magnitude real*4 Hmag_1 ! (mag) ? 2MASS H-band magnitude real*4 Ksmag_1 ! (mag) 2MASS Ks-band magnitude real*4 v_3_6__1 ! (mag) ? Spitzer/IRAC 3.6um band magnitude real*4 v_4_5__1 ! (mag) ? Spitzer/IRAC 4.5um band magnitude real*4 v_5_8__1 ! (mag) ? Spitzer/IRAC 5.8um band magnitude real*4 v_8_0__1 ! (mag) ? Spitzer/IRAC 8.0um band magnitude character*23 Note ! Previous identification(s); spectral types or * IR excess (4) *Note (1): the OB candidate 41 appears to be responsible for the spectacular * X-ray flare discovered by Townsley et al. (2011ApJS..194....1T). *Note (2): CCCP Catalog identifier (Broos et al. 2011, Cat. J/ApJS/194/2) *Note (3): Values in Columns 3-5 were derived from SED fitting under the * assumption of single massive stars on the theoretical zero-age main * sequence (see the text). Formally, T^MS^_eff_, L^MS^_bol_, and * A^MS^_V_ reported here are upper limits and should be used only for * comparison purposes among this sample. *Note (4): Abbreviations for previous star identifications are: * HD = Nesterov et al. (1995, Cat. III/182); * Y = Cudworth et al. (1993, Cat. J/AJ/105/1822; <Cl* Trumpler 14 Y NNN> in * Simbad); * Cr 228 = Collinder 228: Feinstein et al. (1976A&AS...24..389F; * <Cl Collinder 228 NN> in Simbad) or The et al. (1980A&AS...41...93T); * IRS = Smith (1987MNRAS.227..943S; <[S87b] IRS NNa> in Simbad); * MJ = Massey & Johnson (1993, Cat. J/AJ/105/980; <Cl* Trumpler 1[46] MJ NNN> * in Simbad); * XMM = Antokhin et al. (2008, Cat. J/A+A/477/593; <[ARV2008] NNN> in Simbad) * Bo 11 = Bochum 11: Fitzgerald & Mehta (1987MNRAS.228..545F); * LS = Stephenson & Sanduleak (1971PW&SO...1a...1S). * OB = Candidate massive stars (Evans et al. 2003, Cat. J/ApJ/589/509) * PMS = Candidate low-mass PMS stars (Sanchawala et al. 2007, * Cat. J/ApJ/667/963) * NOP = Star was not found in any of optical photometric catalogs listed by * VizieR (Ochsenbein et al. 2000A&AS..143...23O). * PFD = Candidate OB star is also consistent with a foreground MS * classification. * I3 = Source exhibits marginal IR excess emission in the IRAC 5.8um band. C============================================================================= C Loading file 'table1.dat' ! Validation sample of cataloged Carina OB stars: * SED-fitting results and IR photometry C Format for file interpretation 1 format( + A11,1X,F4.2,1X,F4.1,1X,F4.2,1X,F4.2,1X,A17,1X,F5.2,1X,F5.2,1X, + F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,A5) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,182 read(1,'(A97)')ar__ read(ar__,1) + Name,AvBV,Teff,logLbol,Av,SSTGLMA,Jmag,Hmag,Ksmag,v_3_6_, + v_4_5_,v_5_8_,v_8_0_,IREx if(ar__(13:16) .EQ. '') AvBV = rNULL__ if(ar__(51:55) .EQ. '') Jmag = rNULL__ if(ar__(57:61) .EQ. '') Hmag = rNULL__ if(ar__(63:67) .EQ. '') Ksmag = rNULL__ if(ar__(69:73) .EQ. '') v_3_6_ = rNULL__ if(ar__(75:79) .EQ. '') v_4_5_ = rNULL__ if(ar__(81:85) .EQ. '') v_5_8_ = rNULL__ if(ar__(87:91) .EQ. '') v_8_0_ = rNULL__ c ..............Just test output........... write(6,1) + Name,AvBV,Teff,logLbol,Av,SSTGLMA,Jmag,Hmag,Ksmag,v_3_6_, + v_4_5_,v_5_8_,v_8_0_,IREx c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Candidate X-ray-emitting OB stars C Format for file interpretation 2 format( + I2,A1,1X,A18,1X,F4.1,1X,F3.1,1X,F4.1,1X,A17,1X,F5.2,1X,F5.2, + 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,A23) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,94 read(1,'(A120)')ar__1 read(ar__1,2) + Seq,f_Seq,CXOGNC,Teff_1,logLbol_1,Av_1,SSTGLMA_1,Jmag_1, + Hmag_1,Ksmag_1,v_3_6__1,v_4_5__1,v_5_8__1,v_8_0__1,Note if(ar__1(56:60) .EQ. '') Jmag_1 = rNULL__ if(ar__1(62:66) .EQ. '') Hmag_1 = rNULL__ if(ar__1(74:78) .EQ. '') v_3_6__1 = rNULL__ if(ar__1(80:84) .EQ. '') v_4_5__1 = rNULL__ if(ar__1(86:90) .EQ. '') v_5_8__1 = rNULL__ if(ar__1(92:96) .EQ. '') v_8_0__1 = rNULL__ c ..............Just test output........... write(6,2) + Seq,f_Seq,CXOGNC,Teff_1,logLbol_1,Av_1,SSTGLMA_1,Jmag_1, + Hmag_1,Ksmag_1,v_3_6__1,v_4_5__1,v_5_8__1,v_8_0__1,Note c .......End.of.Just test output........... end do close(1) C============================================================================= stop end