Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/596/A82 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 2026-Oct-14
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/596/A82 X-ray study of the young cluster NGC6231 (Damiani+, 2016)
*================================================================================
*A Chandra X-ray study of the young star cluster NGC 6231:
*low-mass population and initial mass function.
* Damiani F., Micela G., Sciortino S.
* <Astron. Astrophys. 596, A82 (2016)>
* =2016A&A...596A..82D (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tableb.dat' ! X-ray, optical, and IR data for Chandra sources
in NGC6231
integer*4 nr__
parameter (nr__=1888) ! Number of records
character*229 ar__ ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 Seq ! Star number
character*16 CXOU ! IAU X-ray source designation
* (JHHMMSS.s+DDMMSS)
real*8 RAdeg ! (deg) ? Right ascension (J2000.0)
real*8 DEdeg ! (deg) ? Declination (J2000.0)
real*4 e_Pos ! (arcsec) ? Position error
real*4 CT ! (ct) ? Total X-ray detected counts
real*8 CR ! (ct/s) ? X-ray count rate
real*4 e_CR ! (ct/s) ? Error on X-ray count rate
real*4 PK_S ! (%) ? Probability of not being constant
real*4 HR1 ! ? Hardness ratio 1:
* bands [0.3-1.2], [1.2-2.2]keV
real*4 HR2 ! ? Hardness ratio 2:
* bands [1.2-2.2], [2.2-8.0]keV
real*4 logLX ! ([10-7W]) ? log X-ray luminosity
real*4 logLXq ! ([10-7W]) ? log quiescent X-ray luminosity
integer*4 SBB ! ? Identifier in SBB (Sung et al.,
* 2013, Cat. J/AJ/145/37)
real*4 Vmag ! (mag) ? SSB V magnitude
real*4 V_I ! (mag) ? SSB V-I Color
real*4 HalphaS ! (mag) ? SSB H-alpha index
character*18 VPHAS ! VPHAS+ identifier (JHHMMSS.s+DDMMSS.s)
* (Drew et al., DR2, 2016, Cat. II/341)
real*4 rmag ! (mag) ? VPHAS+ r magnitude
real*4 imag ! (mag) ? VPHAS+ i magnitude
real*4 HalphaV ! (mag) ? VPHAS+ H-alpha magnitude
character*18 v2MASS ! 2MASS identifier (JHHMMSSss+DDMMSSs)
real*4 Jmag ! (mag) ? 2MASS J magnitude
* (Cutri et al., 2003, Cat. II/246)
real*4 Hmag ! (mag) ? 2MASS H magnitude
real*4 Kmag ! (mag) ? 2MASS K magnitude
integer*4 Group ! ? Group from color-magnitude diagram
character*1 IRexcess ! [Y] IR-excess flag
character*1 Haexcess ! [Y] H-alpha-excess flag
real*4 Mass ! (Msun) ? Derived Star mass
real*4 logLbol ! ([Lsun]) ? Star bolometric luminosity
C=============================================================================
C Loading file 'tableb.dat' ! X-ray, optical, and IR data for Chandra sources
* in NGC6231
C Format for file interpretation
1 format(
+ I4,6X,A16,1X,F9.5,1X,F9.5,1X,F4.2,1X,F6.1,1X,F7.3,1X,F5.3,1X,
+ F5.1,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,I5,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,A18,1X,F6.3,1X,F6.3,1X,F6.3,1X,A18,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,I1,1X,A1,1X,A1,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'tableb.dat')
write(6,*) '....Loading file: tableb.dat'
do i__=1,1888
read(1,'(A229)')ar__
read(ar__,1)
+ Seq,CXOU,RAdeg,DEdeg,e_Pos,CT,CR,e_CR,PK_S,HR1,HR2,logLX,
+ logLXq,SBB,Vmag,V_I,HalphaS,VPHAS,rmag,imag,HalphaV,v2MASS,
+ Jmag,Hmag,Kmag,Group,IRexcess,Haexcess,Mass,logLbol
if(ar__(28:36) .EQ. '') RAdeg = rNULL__
if(ar__(38:46) .EQ. '') DEdeg = rNULL__
if(ar__(48:51) .EQ. '') e_Pos = rNULL__
if(ar__(53:58) .EQ. '') CT = rNULL__
if(ar__(60:66) .EQ. '') CR = rNULL__
if(ar__(68:72) .EQ. '') e_CR = rNULL__
if(ar__(74:78) .EQ. '') PK_S = rNULL__
if(ar__(80:84) .EQ. '') HR1 = rNULL__
if(ar__(86:90) .EQ. '') HR2 = rNULL__
if(ar__(92:96) .EQ. '') logLX = rNULL__
if(ar__(98:102) .EQ. '') logLXq = rNULL__
if(ar__(104:108) .EQ. '') SBB = iNULL__
if(ar__(110:115) .EQ. '') Vmag = rNULL__
if(ar__(117:122) .EQ. '') V_I = rNULL__
if(ar__(124:129) .EQ. '') HalphaS = rNULL__
if(ar__(150:155) .EQ. '') rmag = rNULL__
if(ar__(157:162) .EQ. '') imag = rNULL__
if(ar__(164:169) .EQ. '') HalphaV = rNULL__
if(ar__(190:195) .EQ. '') Jmag = rNULL__
if(ar__(197:202) .EQ. '') Hmag = rNULL__
if(ar__(204:209) .EQ. '') Kmag = rNULL__
if(ar__(211:211) .EQ. '') Group = iNULL__
if(ar__(217:222) .EQ. '') Mass = rNULL__
if(ar__(224:229) .EQ. '') logLbol = rNULL__
c ..............Just test output...........
write(6,1)
+ Seq,CXOU,RAdeg,DEdeg,e_Pos,CT,CR,e_CR,PK_S,HR1,HR2,logLX,
+ logLXq,SBB,Vmag,V_I,HalphaS,VPHAS,rmag,imag,HalphaV,v2MASS,
+ Jmag,Hmag,Kmag,Group,IRexcess,Haexcess,Mass,logLbol
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end