Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/685/463 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/ApJ/685/463 ChaMPlane X-ray sources in the Galactic bulge (Koenig+, 2008) *================================================================================ *Investigating ChaMPlane X-ray sources in the Galactic bulge with Magellan LDSS2 *spectra. * Koenig X., Grindlay J.E., van den Berg M., Laycock S., Zhao P., Hong J., * Schlegel E.M. * <Astrophys. J., 685, 463-477 (2008)> * =2008ApJ...685..463K C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Combined results for 2{sigma} optical matches integer*4 nr__ parameter (nr__=136) ! Number of records character*134 ar__ ! Full-size record character*5 Field ! Field identification character*19 ChOPS ! ChOPS identification: JHHMMSS.ss+DDMMSS.s (1) character*14 SpType ! Spectral type classification (2) character*2 Class ! Special source classification type (3) integer*4 Cts ! (ct) Background subtracted 0.3-0.8keV net counts character*1 f_Cts ! [*] * for source with SNR<3 integer*4 e_Cts ! (ct) Uncertainty in Cts character*1 l_NH ! Limit flag on NH real*4 NH ! (10+22/cm2) Hydrogen column density from spectral fit (4) character*1 f_NH ! [d] NH estimated from QCCD analysis (5) integer*4 e_NH ! (10+21/cm2) ? Uncertainty in NH character*1 l_X_R ! Limit flag on Fx/FR real*4 X_R ! ([-]) ? log(Fx/Fr) of unabsorbed 0.5-2keV X-ray to * unreddened R band flux (in ergs/cm^2^/s/100nm) real*4 e_X_R ! ([-]) ? Uncertainty in Fx/FR character*1 l_Dist ! Limit flag on Dist real*4 Dist ! (kpc) ? Heliocentric distance; error about 60% character*1 l_VMAG ! Limit flag on VMAG real*4 VMAG ! (mag) ? Absolute V band magnitude integer*4 e_VMAG ! (dmag) ? Uncertainty in VMag (in 0.1mag) character*1 l_logLx ! Limit on logLx real*4 logLx ! ([10-7W]) ? Log of 0.5-2keV X-ray luminosity real*4 e_logLx ! ([10-7W]) ? Uncertainty in logLx real*4 Rmag ! (mag) R band magnitude integer*4 e_Rmag ! (cmag) Uncertainty in Rmag (in 0.01mag) integer*4 Nm ! Number of optical matches (6) real*4 Srch ! (arcsec) Combined 95% X-ray and optical position * error circle (7) real*4 off ! (arcsec) Positional offset between X-ray and * optical position real*4 PRn ! Random match probability (8) *Note (1): ChaMPlane IDs have prefix ChOPS (<ChOPS JHHMMSS.ss+DDMMSS.s> in * Simbad). *Note (2): Spectral type classifications: * MidM = M4-M6 spectral range, with Teff=3000+/-500K, M_V_=13.2+/-2.0 * LateG = G6-G8 spectral range, with Teff=5200+/-500K, M_V_=5.3+/-0.5 * MidG = G4-G6 spectral range, with Teff=5400+/-500K, M_V_=4.9+/-0.5 * EarlyG = G2-G4 spectral range, with Teff=5600+/-500K, M_V_=4.6+/-0.4 * F/G = F8-G2 spectral range, with Teff=5950+/-500K, M_V_=4.3+/-0.7 * LateF = F6-F8 spectral range, with Teff=6200+/-500K, M_V_=3.8+/-0.4 * EarlyA = A2-A4 spectral range, with Teff=9100+/-500K, M_V_=1.8+/-0.4 * See Table 4 of paper for further details of spectral type classification. *Note (3): Object classification for 19 special sources as follows: * q = qLMXB (quiescent low-mass X-ray binary system) candidate; * by = BY Dra candidate; * rs = RS CVn candidate; * tt = T Tauri; * cv = Cataclysmic Variable. *Note (4): True value may be higher by ~0.2, see text. *Note (5): Objects with "?" spectral type and CVs, which have NH estimated * from X-ray quantile color-color diagram (QCCD) analysis. *Note (6): Found within 95% confidence (2{sigma}) error circle of this X-ray * source. *Note (7): Used to search for optical matches. *Note (8): Given error circle size and measured local optical projected * surface density. C============================================================================= C Loading file 'table5.dat' ! Combined results for 2{sigma} optical matches C Format for file interpretation 1 format( + A5,1X,A19,1X,A14,1X,A2,1X,I4,1X,A1,1X,I2,1X,A1,F6.3,1X,A1,1X, + I2,1X,A1,F4.1,1X,F3.1,1X,A1,F4.1,1X,A1,F6.2,1X,I2,1X,A1,1X, + F5.2,1X,F3.1,1X,F6.3,1X,I1,1X,I1,1X,F5.3,1X,F5.3,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,136 read(1,'(A134)')ar__ read(ar__,1) + Field,ChOPS,SpType,Class,Cts,f_Cts,e_Cts,l_NH,NH,f_NH,e_NH, + l_X_R,X_R,e_X_R,l_Dist,Dist,l_VMAG,VMAG,e_VMAG,l_logLx,logLx, + e_logLx,Rmag,e_Rmag,Nm,Srch,off,PRn if(ar__(65:66) .EQ. '') e_NH = iNULL__ if(ar__(69:72) .EQ. '') X_R = rNULL__ if(ar__(74:76) .EQ. '') e_X_R = rNULL__ if(ar__(79:82) .EQ. '') Dist = rNULL__ if(ar__(85:90) .EQ. '') VMAG = rNULL__ if(ar__(92:93) .EQ. '') e_VMAG = iNULL__ if(ar__(97:101) .EQ. '') logLx = rNULL__ if(ar__(103:105) .EQ. '') e_logLx = rNULL__ c ..............Just test output........... write(6,1) + Field,ChOPS,SpType,Class,Cts,f_Cts,e_Cts,l_NH,NH,f_NH,e_NH, + l_X_R,X_R,e_X_R,l_Dist,Dist,l_VMAG,VMAG,e_VMAG,l_logLx,logLx, + e_logLx,Rmag,e_Rmag,Nm,Srch,off,PRn c .......End.of.Just test output........... end do close(1) C============================================================================= stop end