Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/596/A82 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 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 (nr__) ! Star number
character*16 CXOU (nr__) ! IAU X-ray source designation
* (JHHMMSS.s+DDMMSS)
real*8 RAdeg (nr__) ! (deg) ? Right ascension (J2000.0)
real*8 DEdeg (nr__) ! (deg) ? Declination (J2000.0)
real*4 e_Pos (nr__) ! (arcsec) ? Position error
real*4 CT (nr__) ! (ct) ? Total X-ray detected counts
real*8 CR (nr__) ! (ct/s) ? X-ray count rate
real*4 e_CR (nr__) ! (ct/s) ? Error on X-ray count rate
real*4 PK_S (nr__) ! (%) ? Probability of not being constant
real*4 HR1 (nr__) ! ? Hardness ratio 1:
* bands [0.3-1.2], [1.2-2.2]keV
real*4 HR2 (nr__) ! ? Hardness ratio 2:
* bands [1.2-2.2], [2.2-8.0]keV
real*4 logLX (nr__) ! ([10-7W]) ? log X-ray luminosity
real*4 logLXq (nr__) ! ([10-7W]) ? log quiescent X-ray luminosity
integer*4 SBB (nr__) ! ? Identifier in SBB (Sung et al.,
* 2013, Cat. J/AJ/145/37)
real*4 Vmag (nr__) ! (mag) ? SSB V magnitude
real*4 V_I (nr__) ! (mag) ? SSB V-I Color
real*4 HalphaS (nr__) ! (mag) ? SSB H-alpha index
character*18 VPHAS (nr__) ! VPHAS+ identifier (JHHMMSS.s+DDMMSS.s)
* (Drew et al., DR2, 2016, Cat. II/341)
real*4 rmag (nr__) ! (mag) ? VPHAS+ r magnitude
real*4 imag (nr__) ! (mag) ? VPHAS+ i magnitude
real*4 HalphaV (nr__) ! (mag) ? VPHAS+ H-alpha magnitude
character*18 v2MASS (nr__) ! 2MASS identifier (JHHMMSSss+DDMMSSs)
real*4 Jmag (nr__) ! (mag) ? 2MASS J magnitude
* (Cutri et al., 2003, Cat. II/246)
real*4 Hmag (nr__) ! (mag) ? 2MASS H magnitude
real*4 Kmag (nr__) ! (mag) ? 2MASS K magnitude
integer*4 Group (nr__) ! ? Group from color-magnitude diagram
character*1 IRexcess (nr__) ! [Y] IR-excess flag
character*1 Haexcess (nr__) ! [Y] H-alpha-excess flag
real*4 Mass (nr__) ! (Msun) ? Derived Star mass
real*4 logLbol (nr__) ! ([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(i__),CXOU(i__),RAdeg(i__),DEdeg(i__),e_Pos(i__),CT(i__),
+ CR(i__),e_CR(i__),PK_S(i__),HR1(i__),HR2(i__),logLX(i__),
+ logLXq(i__),SBB(i__),Vmag(i__),V_I(i__),HalphaS(i__),
+ VPHAS(i__),rmag(i__),imag(i__),HalphaV(i__),v2MASS(i__),
+ Jmag(i__),Hmag(i__),Kmag(i__),Group(i__),IRexcess(i__),
+ Haexcess(i__),Mass(i__),logLbol(i__)
if(ar__(28:36) .EQ. '') RAdeg(i__) = rNULL__
if(ar__(38:46) .EQ. '') DEdeg(i__) = rNULL__
if(ar__(48:51) .EQ. '') e_Pos(i__) = rNULL__
if(ar__(53:58) .EQ. '') CT(i__) = rNULL__
if(ar__(60:66) .EQ. '') CR(i__) = rNULL__
if(ar__(68:72) .EQ. '') e_CR(i__) = rNULL__
if(ar__(74:78) .EQ. '') PK_S(i__) = rNULL__
if(ar__(80:84) .EQ. '') HR1(i__) = rNULL__
if(ar__(86:90) .EQ. '') HR2(i__) = rNULL__
if(ar__(92:96) .EQ. '') logLX(i__) = rNULL__
if(ar__(98:102) .EQ. '') logLXq(i__) = rNULL__
if(ar__(104:108) .EQ. '') SBB(i__) = iNULL__
if(ar__(110:115) .EQ. '') Vmag(i__) = rNULL__
if(ar__(117:122) .EQ. '') V_I(i__) = rNULL__
if(ar__(124:129) .EQ. '') HalphaS(i__) = rNULL__
if(ar__(150:155) .EQ. '') rmag(i__) = rNULL__
if(ar__(157:162) .EQ. '') imag(i__) = rNULL__
if(ar__(164:169) .EQ. '') HalphaV(i__) = rNULL__
if(ar__(190:195) .EQ. '') Jmag(i__) = rNULL__
if(ar__(197:202) .EQ. '') Hmag(i__) = rNULL__
if(ar__(204:209) .EQ. '') Kmag(i__) = rNULL__
if(ar__(211:211) .EQ. '') Group(i__) = iNULL__
if(ar__(217:222) .EQ. '') Mass(i__) = rNULL__
if(ar__(224:229) .EQ. '') logLbol(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Seq(i__),CXOU(i__),RAdeg(i__),DEdeg(i__),e_Pos(i__),CT(i__),
+ CR(i__),e_CR(i__),PK_S(i__),HR1(i__),HR2(i__),logLX(i__),
+ logLXq(i__),SBB(i__),Vmag(i__),V_I(i__),HalphaS(i__),
+ VPHAS(i__),rmag(i__),imag(i__),HalphaV(i__),v2MASS(i__),
+ Jmag(i__),Hmag(i__),Kmag(i__),Group(i__),IRexcess(i__),
+ Haexcess(i__),Mass(i__),logLbol(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end