Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/614/A125 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-20
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/614/A125 Stellar content of the XMM-Newton slew survey (Freund+, 2018)
*================================================================================
*The stellar content of the XMM-Newton slew survey.
* Freund S., Robrade J., Schneider P.C., Schmitt J.H.M.M.
* <Astron. Astrophys. 614, A125 (2018)>
* =2018A&A...614A.125F (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'catalog.dat' ! Stellar sources of the XMMSL2
integer*4 nr__
parameter (nr__=8418) ! Number of records
character*1679 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*23 XMMSL2 (nr__) ! Official name for sources detected in the
* XMM-Newton slew survey
* (UNIQUE_SRCNAME) (1)
character*10 ObsId (nr__) ! Observation number (OBSID) (1)
integer*4 SNum (nr__) ! Number which uniquely identifies each
* detection in an observation (SOURCENUM) (1)
real*8 RAdeg (nr__) ! (deg) Right ascension (J2000) (RA) (1)
real*8 DEdeg (nr__) ! (deg) Declination (J2000) (DEC) (1)
real*4 ePos (nr__) ! (arcsec) Statistical error on the source position
* (RADEC_ERR) (1)
real*8 GLON (nr__) ! (deg) Galactic longitude (LII) (1)
real*8 GLAT (nr__) ! (deg) Galactic latitude (BII) (1)
real*8 HR1 (nr__) ! ? Hardness ratio (HR1) (1)
real*8 e_HR1 (nr__) ! ? rms uncertainty on HR1 (HR1_ERR) (1)
character*19 DateS (nr__) ! Start time of the slew containing this
* source (DATE_OBS) (1)
character*19 DateE (nr__) ! End time of the slew containing this
* source (DATE_END) (1)
real*4 SctsB8 (nr__) ! (ct) ? Number of background subtracted counts,
* in the total energy band (0.2-12keV)
* (SCTS_B8) (1)
real*8 e_SctsB8 (nr__) ! (ct) ? Statistical 1 sigma error on SctsB8
* (SCTSB8ERR) (1)
real*4 SctsB7 (nr__) ! (ct) ? Number of background subtracted counts,
* in the hard energy band (2-12keV),
* corrected for the PSF (SCTS_B7) (1)
real*8 e_SctsB7 (nr__) ! (ct) ? Statistical 1 sigma error on SctsB7
* (SCTSB7ERR) (1)
real*4 SctsB6 (nr__) ! (ct) ? Number of background subtracted counts,
* in the soft energy band (0.2-2keV),
* corrected for the PSF (SCTS_B6) (1)
real*8 e_SctsB6 (nr__) ! (ct) ? Statistical 1 sigma error on SctsB6
* (SCTSB6ERR) (1)
real*4 XimaB8 (nr__) ! (pix) ? X position in the total band image
* in image pixels (XIMAB8) (1)
real*4 YimaB8 (nr__) ! (pix) ? Y position in the total band image
* in image pixels (YIMAB8) (1)
real*4 XimaB7 (nr__) ! (pix) ? X position in the hard band image
* in image pixels(XIMAB7) (1)
real*4 YimaB7 (nr__) ! (pix) ? Y position in the hard band image
* in image pixels(YIMAB7) (1)
real*4 XimaB6 (nr__) ! (pix) ? X position in the soft band image
* in image pixels(XIMAB6) (1)
real*4 YimaB6 (nr__) ! (pix) ? Y position in the soft band image
* in image pixels(YIMAB6) (1)
real*8 ExtB8 (nr__) ! (pix) ? Spatial extension of the source
* in the total energy band (EXT_B8) (1)
real*8 e_ExtB8 (nr__) ! (pix) ? Statistical one sigma error on ExtB8
* (EXTB8ERR) (1)
real*8 ExtB7 (nr__) ! (pix) ? Spatial extension of the source
* in the hard energy band (EXT_B7) (1)
real*8 e_ExtB7 (nr__) ! (pix) ? Statistical one sigma error on ExtB7
* (EXTB7ERR) (1)
real*8 ExtB6 (nr__) ! (pix) ? Spatial extension of the source
* in the soft energy band (EXT_B6) (1)
real*8 e_ExtB6 (nr__) ! (pix) ? Statistical one sigma error on ExtB6
* (EXTB6ERR) (1)
real*8 DetMLB8 (nr__) ! ? Detection likelihood in the total
* (0.2-12keV) energy band (DETMLB8) (1)
real*8 DetMLB7 (nr__) ! ? Detection likelihood in the hard
* (2-12keV) energy band (DETMLB7) (1)
real*8 DetMLB6 (nr__) ! ? Detection likelihood in the soft
* (0.2-2keV) energy band (DETMLB6) (1)
real*8 ExtMLB8 (nr__) ! ? Likelihood of the source being extended
* in the total band (EXTMLB8) (1)
real*8 ExtMLB7 (nr__) ! ? Likelihood of the source being extended
* in the hard band (EXTMLB7) (1)
real*8 ExtMLB6 (nr__) ! ? Likelihood of the source being extended
* in the soft band (EXTMLB6) (1)
real*8 BgMapB8 (nr__) ! (ct/pix) ? Background value for the total band
* (BGMAPB8) (1)
real*8 BgMapB7 (nr__) ! (ct/pix) ? Background value for the hard band
* (BGMAPB7) (1)
real*8 BgMapB6 (nr__) ! (ct/pix) ? Background value for the soft band
* (BGMAPB6) (1)
real*8 ExpMapB8 (nr__) ! (s) ? Effective on-axis exposure time
* in the total energy band (EXPMAPB8) (1)
real*8 ExpMapB7 (nr__) ! (s) ? Effective on-axis exposure time
* in the hard energy band (EXPMAPB7) (1)
real*8 ExpMapB6 (nr__) ! (s) ? Effective on-axis exposure time
* in the soft energy band (EXPMAPB6) (1)
real*8 FluxB8 (nr__) ! (fW/m2) ? Flux in the total energy (0.2-12keV)
* band (FLUX_B8) (1)
real*8 e_FluxB8 (nr__) ! (fW/m2) ? Error in FluxB8 (FLUXB8ERR) (1)
real*8 FluxB7 (nr__) ! (fW/m2) ? Flux in the total energy (2-12keV)
* band (FLUX_B7) (1)
real*8 e_FluxB7 (nr__) ! (fW/m2) ? Error in FluxB7 (FLUXB7ERR) (1)
real*8 FluxB6 (nr__) ! (fW/m2) ? Flux in the total energy (0.2-2keV)
* band (FLUX_B6) (1)
real*8 e_FluxB6 (nr__) ! (fW/m2) ? Error in FluxB6 (FLUXB6ERR) (1)
real*8 RateB8 (nr__) ! (ct/s) ? Total band count rate (RATE_B8) (1)
real*8 e_RateB8 (nr__) ! (ct/s) ? Error in RateB8 (RATEB8ERR) (1)
real*8 RateB7 (nr__) ! (ct/s) ? Hard band count rate (RATE_B7) (1)
real*8 e_RateB7 (nr__) ! (ct/s) ? Error in RateB7 (RATEB7ERR) (1)
real*8 RateB6 (nr__) ! (ct/s) ? Soft band count rate (RATE_B6) (1)
real*8 e_RateB6 (nr__) ! (ct/s) ? Error in RateB6 (RATEB6ERR) (1)
real*8 RAdegB8 (nr__) ! (deg) ? Total band right ascension (J2000)
* (RA_B8) (1)
real*8 DEdegB8 (nr__) ! (deg) ? Total band declination (J2000)
* (DEC_B8) (1)
real*8 ePosB8 (nr__) ! (arcsec) ? Statistical error on total band position
* (RADECB8ERR) (1)
real*8 GLONB8 (nr__) ! (deg) ? Total band galactic longitude
* (LII_B8) (1)
real*8 GLATB8 (nr__) ! (deg) ? Total band galactic latitude
* (BII_B8) (1)
real*8 RAdegB7 (nr__) ! (deg) ? Hard band right ascension (J2000)
* (RA_B7) (1)
real*8 DEdegB7 (nr__) ! (deg) ? Hard band declination (J2000)
* (DEC_B7) (1)
real*8 ePosB7 (nr__) ! (arcsec) ? Statistical error on hard band position
* (RADECB7ERR) (1)
real*8 GLONB7 (nr__) ! (deg) ? Hard band galactic longitude (LII_B7) (1)
real*8 GLATB7 (nr__) ! (deg) ? Hard band galactic latitude (BII_B7) (1)
real*8 RAdegB6 (nr__) ! (arcsec) ? Soft band right ascension (J2000)
* (RA_B6) (1)
real*8 DEdegB6 (nr__) ! (deg) ? Soft band declination (J2000)
* (DEC_B6) (1)
real*8 ePosB6 (nr__) ! (deg) ? Statistical error on soft band position
* (RADECB6ERR) (1)
real*8 GLONB6 (nr__) ! (deg) ? Soft band galactic longitude (LII_B6) (1)
real*8 GLATB6 (nr__) ! (deg) ? Soft band galactic latitude (BII_B6) (1)
character*12 Flag (nr__) ! [CLEAN_SAMPLE] Flag for source included in
* the clean subset (VAL_FLAG) (1)
character*37 SnameB8 (nr__) ! Source name defined in the total band list
* (SRCNAME_B8) (1)
character*37 SnameB7 (nr__) ! Source name defined in the hard band list
* (SRCNAME_B7) (1)
character*37 SnameB6 (nr__) ! Source name defined in the soft band list
* (SRCNAME_B6) (1)
character*31 XInameB8 (nr__) ! Name of the image containing the total band
* detection (XIMNAME_B8) (1)
character*31 XInameB7 (nr__) ! Name of the image containing the hard band
* detection (XIMNAME_B7) (1)
character*31 XInameB6 (nr__) ! Name of the image containing the soft band
* detection (XIMNAME_B6) (1)
integer*4 Inext (nr__) ! [0/1] Extended source flag (VER_INEXT) (1)
integer*4 Halo (nr__) ! [0/1] Halo flag (VER_HALO) (1)
integer*4 HIbgnd (nr__) ! [0/1] Bright region flag (VER_HIBGND) (1)
integer*4 Nredg (nr__) ! [0] Not used in XMMSL2 (VER_NREDG) (1)
integer*4 Psusp (nr__) ! [0/1] Inaccurate position flag
* (VER_PSUSP) (1)
integer*4 False (nr__) ! [0/1] Catch-all for problems not included
* in the other flags (VER_FALSE) (1)
character*38 Com (nr__) ! Suspect attitude reconstruction in RAF
* (FLAG_COMMENT) (1)
character*32 Ident (nr__) ! Cross-correlations of the positions of the
* slew sources (IDENT) (1)
character*16 v1RXS (nr__) ! Name of the closest Rosat All Sky Survey
* (RASS) source (RASSNAME) (1)
character*17 Type (nr__) ! Source type (ID_CATEGORY) (1)
character*8 r_Type (nr__) ! Reference for Type (ID_RESOURCE) (1)
real*8 DistC (nr__) ! (arcsec) ? Distance between the best match candidate
* and the slew survey source (ID_DIST) (1)
real*4 DistR (nr__) ! (arcsec) ? Distance from the best match ROSAT source
* and the slew source (RASS_DIST) (1)
character*3 ModeID (nr__) ! Observing mode of the EPIC-pn camera
* (MODE_ID) (1)
real*4 ImBGRate (nr__) ! (ct/s) Peak background count rate in the image
* from which the source was extracted
* (IMAGEBGRATE) (1)
real*8 MJDStart (nr__) ! (d) Start time of the subimage where the source
* is located in modified Julian date
* (MJD_START) (1)
real*8 MJDStop (nr__) ! (d) End time of the subimage where the source
* is located in modified Julian date
* (MJD_STOP) (1)
integer*4 OPTLOAD (nr__) ! [0/1] Warning flag indicating that the
* source may suffer from optical loading
* (VER_OPTLOAD) (1)
integer*4 FiltCt (nr__) ! Number of counts found within a 1 arcminute
* radius about the source position after
* standard filtering is applied
* (FILT_CNTS) (1)
integer*4 UnfiltCt (nr__) ! Number of counts found within a 1 arcminute
* radius about the source position with no
* filtering applied (UNFILT_CNTS) (1)
character*23 USXMMSL1 (nr__) ! Name of the same source in the previous
* XMMSL1 catalogue if existing
* (US_XMMSL1) (1)
integer*4 USExtras (nr__) ! Corresponding SRCID value within the
* EXTraS LTV catalogue (US_EXTRAS) (1)
real*4 XMMSLFX (nr__) ! (fW/m2) Stellar X-ray flux of the XMMSL2 source (2)
integer*4 NumDet (nr__) ! Number of detections of the source
integer*4 NumMatch (nr__) ! Number of stellar counterparts
integer*4 Priority (nr__) ! [1/31] Priority of the counterpart
character*4 Catalog (nr__) ! [TLBMG ] Catalogs of the counterpart (3)
real*4 r (nr__) ! (arcsec) [0.04/29.66] Separation between XMMSL2 and
* stellar source
real*4 Probr (nr__) ! (%) Matching probability
integer*8 GaiaID (nr__) ! ? Identifier of the Gaia DR1 catalog
character*11 Tycho2ID (nr__) ! ? Identifier of the Tycho2 catalog
integer*4 HR (nr__) ! ? Identifier of the BrightStar catalog
character*13 PM (nr__) ! ? Identifier of the SUPERBLINK catalog
character*16 v2MASSID (nr__) ! ? Identifier of the 2MASS catalog
real*8 MtchRA (nr__) ! (deg) Right Ascension of the stellar
* counterpart (4)
real*8 MtchDE (nr__) ! (deg) Declination of the stellar counterpart (4)
real*4 e_MtchRA (nr__) ! (mas) ? Statistical error on MtchRA
real*4 e_MtchDE (nr__) ! (mas) ? Statistical error on MtchDEC
real*8 pmRA (nr__) ! (mas/yr) ? Proper motion in Right Ascension
real*8 pmDE (nr__) ! (mas/yr) ? Proper motion in Declination
real*4 e_pmRA (nr__) ! (mas/yr) ? Statistical error on pmRA
real*4 e_pmDE (nr__) ! (mas/yr) ? Statistical error on pmDE
real*4 BTmag (nr__) ! (mag) ? Magnitude in the Tycho2 BT band
real*4 e_BTmag (nr__) ! (mag) ? Statistical error on BTmag
real*4 VTmag (nr__) ! (mag) ? Magnitude in the Tycho2 VT band
real*4 e_VTmag (nr__) ! (mag) ? Statistical error on VTmag
real*4 Bmag (nr__) ! (mag) ? Magnitude in the B band
real*4 Vmag (nr__) ! (mag) ? Magnitude in the V band
real*4 Gmag (nr__) ! (mag) ? Magnitude in the G band of Gaia DR1
real*4 Jmag (nr__) ! (mag) ? Magnitude in the J band of 2MASS
real*4 e_Jmag (nr__) ! (mag) ? Statistical error on Jmag
real*4 Hmag (nr__) ! (mag) ? Magnitude in the H band of 2MASS
real*4 e_Hmag (nr__) ! (mag) ? Statistical error on Hmag
real*4 Kmag (nr__) ! (mag) ? Magnitude in the K band of 2MASS
real*4 e_Kmag (nr__) ! (mag) ? Statistical error on Kmag
character*3 Qflg (nr__) ! ? Quality of the JHK photometry (5)
character*3 Rflg (nr__) ! ? Method of the JHK photometry (5)
character*3 Bflg (nr__) ! ? JHK components fit to source (5)
character*3 Cflg (nr__) ! ? Flag for contamination, confusion,
* etc (5)
character*3 Xflg (nr__) ! ? Extended source contamination (5)
integer*4 XSCID (nr__) ! ? Identifier of the 2MASS-XSC (5)
real*8 plx (nr__) ! (arcsec) ? Trigonometric parallax
real*8 e_plx (nr__) ! (arcsec) ? Statistical error on plx
character*3 CCDM (nr__) ! ? Component of multiple star system
character*15 SpType (nr__) ! ? Spectral type
real*4 mbol (nr__) ! (mag) ? Bolometric magnitude
real*4 Fbol (nr__) ! (fW/m2) ? Bolometric flux
integer*4 Teff (nr__) ! (K) ? Effective temperature
real*8 VMAG_1 (nr__) ! (mag) ? Absolute magnitude in the V band
character*1 n_VMAG (nr__) ! [i] i for infinity
real*8 Mbol_1 (nr__) ! (mag) ? Absolute bolometric magnitude
character*1 n_Mbol (nr__) ! [i] i for infinity
real*4 Lbol (nr__) ! (W) ? Bolometric luminosity
character*1 n_Lbol (nr__) ! [i] i for infinity
real*4 LX (nr__) ! (W) ? X-ray luminosity
character*1 n_LX (nr__) ! [i] i for infinity
character*7 StFlg (nr__) ! [AGOEDPCHXTS ] Stellar flag (6)
character*20 v2RXSID (nr__) ! ? Identifier of the RASS catalog (2RXS)
real*4 v2RXSr (nr__) ! (arcsec) ? Separation between XMMSL2 and RASS source
real*4 v2RXSFX (nr__) ! (fW/m2) ? X-ray flux of the RASS catalog
character*32 SBDID (nr__) ! ? Identifier adopted from SIMBAD
real*4 SBDr (nr__) ! (arcsec) ? Separation between XMMSL2 and SIMBAD
* source
character*17 SBDotype (nr__) ! ? Classification adopted from SIMBAD
*Note (1): Adopted from the XMMSL2 catalog (see IX/53 for details).
*Note (2): For multiply detected sources, the median X-ray flux is adopted.
*Note (3): Catalogs of the counterpart as follows:
* G = Gaia DR1 catalog, Cat. I/337
* T = Tycho2 catalog, Cat. I/259
* M = 2MASS catalog, Cat. II/246
* L = Lepine catalog, Cat. J/AJ/142/138
* B = BrightStar catalog, Cat. V/50
*Note (4): Corrected for proper motion to the epoch of the XMMSL2 observation.
*Note (5): Adopted from the 2MASS catalog (see II/246 for details).
*Note (6): Stellar flag as follows:
* A = Accretor warning
* G = Extragalactic warning
* O = Optical loading
* E = Extended source
* D = Missing 2MASS detection
* P = Erroneous 2MASS photometry
* C = Extrem color
* H = Hard band detection only
* X = Persistent high X-ray activity
* T = Transient X-ray source
* S = High X-ray activity in the slew
C=============================================================================
C Loading file 'catalog.dat' ! Stellar sources of the XMMSL2
C Format for file interpretation
1 format(
+ A23,1X,A10,1X,I3,1X,F9.5,1X,F9.5,1X,F6.2,1X,F9.5,1X,F9.5,1X,
+ F9.6,1X,F8.6,1X,A19,1X,A19,1X,E12.6,1X,F8.5,1X,E12.6,1X,F8.5,
+ 1X,E12.6,1X,F8.5,1X,E12.6,1X,E12.6,1X,E12.6,1X,E12.6,1X,E12.6,
+ 1X,E12.6,1X,F9.6,1X,F9.6,1X,F9.6,1X,F9.6,1X,F9.6,1X,F9.6,1X,
+ F12.6,1X,F12.6,1X,F11.6,1X,F11.6,1X,F11.6,1X,F11.6,1X,F8.6,1X,
+ F8.6,1X,F8.6,1X,F9.6,1X,F9.6,1X,F9.6,1X,F11.6,1X,F9.6,1X,
+ F11.6,1X,F10.6,1X,F10.6,1X,F9.6,1X,F10.6,1X,F9.6,1X,F10.6,1X,
+ F9.6,1X,F10.6,1X,F9.6,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,
+ 1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,
+ F8.5,1X,F9.5,1X,F9.5,1X,A12,1X,A37,1X,A37,1X,A37,1X,A31,1X,
+ A31,1X,A31,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,A38,1X,A32,
+ 1X,A16,1X,A17,1X,A8,1X,F10.6,1X,F6.3,1X,A3,1X,F5.1,1X,F10.4,
+ 1X,F10.4,1X,I1,1X,I4,1X,I4,1X,A23,1X,I6,1X,E9.3,1X,I2,1X,I2,
+ 1X,I2,1X,A4,1X,F5.2,1X,F5.2,1X,I19,1X,A11,1X,I4,1X,A13,1X,A16,
+ 1X,F10.6,1X,F10.6,1X,F6.2,1X,F6.2,1X,F7.1,1X,F7.1,1X,F4.1,1X,
+ F4.1,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,A3,1X,A3,
+ 1X,A3,1X,A3,1X,A3,1X,I7,1X,F8.5,1X,F7.5,1X,A3,1X,A15,1X,F6.3,
+ 1X,E9.3,1X,I5,1X,F7.3,A1,F7.3,A1,E9.3,A1,E9.3,A1,A7,1X,A20,1X,
+ F5.2,1X,E9.3,1X,A32,1X,F5.2,1X,A17)
C Effective file loading
open(unit=1,status='old',file=
+'catalog.dat')
write(6,*) '....Loading file: catalog.dat'
do i__=1,8418
read(1,'(A1679)')ar__
read(ar__,1)
+ XMMSL2(i__),ObsId(i__),SNum(i__),RAdeg(i__),DEdeg(i__),
+ ePos(i__),GLON(i__),GLAT(i__),HR1(i__),e_HR1(i__),DateS(i__),
+ DateE(i__),SctsB8(i__),e_SctsB8(i__),SctsB7(i__),
+ e_SctsB7(i__),SctsB6(i__),e_SctsB6(i__),XimaB8(i__),
+ YimaB8(i__),XimaB7(i__),YimaB7(i__),XimaB6(i__),YimaB6(i__),
+ ExtB8(i__),e_ExtB8(i__),ExtB7(i__),e_ExtB7(i__),ExtB6(i__),
+ e_ExtB6(i__),DetMLB8(i__),DetMLB7(i__),DetMLB6(i__),
+ ExtMLB8(i__),ExtMLB7(i__),ExtMLB6(i__),BgMapB8(i__),
+ BgMapB7(i__),BgMapB6(i__),ExpMapB8(i__),ExpMapB7(i__),
+ ExpMapB6(i__),FluxB8(i__),e_FluxB8(i__),FluxB7(i__),
+ e_FluxB7(i__),FluxB6(i__),e_FluxB6(i__),RateB8(i__),
+ e_RateB8(i__),RateB7(i__),e_RateB7(i__),RateB6(i__),
+ e_RateB6(i__),RAdegB8(i__),DEdegB8(i__),ePosB8(i__),
+ GLONB8(i__),GLATB8(i__),RAdegB7(i__),DEdegB7(i__),ePosB7(i__),
+ GLONB7(i__),GLATB7(i__),RAdegB6(i__),DEdegB6(i__),ePosB6(i__),
+ GLONB6(i__),GLATB6(i__),Flag(i__),SnameB8(i__),SnameB7(i__),
+ SnameB6(i__),XInameB8(i__),XInameB7(i__),XInameB6(i__),
+ Inext(i__),Halo(i__),HIbgnd(i__),Nredg(i__),Psusp(i__),
+ False(i__),Com(i__),Ident(i__),v1RXS(i__),Type(i__),
+ r_Type(i__),DistC(i__),DistR(i__),ModeID(i__),ImBGRate(i__),
+ MJDStart(i__),MJDStop(i__),OPTLOAD(i__),FiltCt(i__),
+ UnfiltCt(i__),USXMMSL1(i__),USExtras(i__),XMMSLFX(i__),
+ NumDet(i__),NumMatch(i__),Priority(i__),Catalog(i__),r(i__),
+ Probr(i__),GaiaID(i__),Tycho2ID(i__),HR(i__),PM(i__),
+ v2MASSID(i__),MtchRA(i__),MtchDE(i__),e_MtchRA(i__),
+ e_MtchDE(i__),pmRA(i__),pmDE(i__),e_pmRA(i__),e_pmDE(i__),
+ BTmag(i__),e_BTmag(i__),VTmag(i__),e_VTmag(i__),Bmag(i__),
+ Vmag(i__),Gmag(i__),Jmag(i__),e_Jmag(i__),Hmag(i__),
+ e_Hmag(i__),Kmag(i__),e_Kmag(i__),Qflg(i__),Rflg(i__),
+ Bflg(i__),Cflg(i__),Xflg(i__),XSCID(i__),plx(i__),e_plx(i__),
+ CCDM(i__),SpType(i__),mbol(i__),Fbol(i__),Teff(i__),
+ VMAG_1(i__),n_VMAG(i__),Mbol_1(i__),n_Mbol(i__),Lbol(i__),
+ n_Lbol(i__),LX(i__),n_LX(i__),StFlg(i__),v2RXSID(i__),
+ v2RXSr(i__),v2RXSFX(i__),SBDID(i__),SBDr(i__),SBDotype(i__)
if(ar__(87:95) .EQ. '') HR1(i__) = rNULL__
if(ar__(97:104) .EQ. '') e_HR1(i__) = rNULL__
if(ar__(146:157) .EQ. '') SctsB8(i__) = rNULL__
if(ar__(159:166) .EQ. '') e_SctsB8(i__) = rNULL__
if(ar__(168:179) .EQ. '') SctsB7(i__) = rNULL__
if(ar__(181:188) .EQ. '') e_SctsB7(i__) = rNULL__
if(ar__(190:201) .EQ. '') SctsB6(i__) = rNULL__
if(ar__(203:210) .EQ. '') e_SctsB6(i__) = rNULL__
if(ar__(212:223) .EQ. '') XimaB8(i__) = rNULL__
if(ar__(225:236) .EQ. '') YimaB8(i__) = rNULL__
if(ar__(238:249) .EQ. '') XimaB7(i__) = rNULL__
if(ar__(251:262) .EQ. '') YimaB7(i__) = rNULL__
if(ar__(264:275) .EQ. '') XimaB6(i__) = rNULL__
if(ar__(277:288) .EQ. '') YimaB6(i__) = rNULL__
if(ar__(290:298) .EQ. '') ExtB8(i__) = rNULL__
if(ar__(300:308) .EQ. '') e_ExtB8(i__) = rNULL__
if(ar__(310:318) .EQ. '') ExtB7(i__) = rNULL__
if(ar__(320:328) .EQ. '') e_ExtB7(i__) = rNULL__
if(ar__(330:338) .EQ. '') ExtB6(i__) = rNULL__
if(ar__(340:348) .EQ. '') e_ExtB6(i__) = rNULL__
if(ar__(350:361) .EQ. '') DetMLB8(i__) = rNULL__
if(ar__(363:374) .EQ. '') DetMLB7(i__) = rNULL__
if(ar__(376:386) .EQ. '') DetMLB6(i__) = rNULL__
if(ar__(388:398) .EQ. '') ExtMLB8(i__) = rNULL__
if(ar__(400:410) .EQ. '') ExtMLB7(i__) = rNULL__
if(ar__(412:422) .EQ. '') ExtMLB6(i__) = rNULL__
if(ar__(424:431) .EQ. '') BgMapB8(i__) = rNULL__
if(ar__(433:440) .EQ. '') BgMapB7(i__) = rNULL__
if(ar__(442:449) .EQ. '') BgMapB6(i__) = rNULL__
if(ar__(451:459) .EQ. '') ExpMapB8(i__) = rNULL__
if(ar__(461:469) .EQ. '') ExpMapB7(i__) = rNULL__
if(ar__(471:479) .EQ. '') ExpMapB6(i__) = rNULL__
if(ar__(481:491) .EQ. '') FluxB8(i__) = rNULL__
if(ar__(493:501) .EQ. '') e_FluxB8(i__) = rNULL__
if(ar__(503:513) .EQ. '') FluxB7(i__) = rNULL__
if(ar__(515:524) .EQ. '') e_FluxB7(i__) = rNULL__
if(ar__(526:535) .EQ. '') FluxB6(i__) = rNULL__
if(ar__(537:545) .EQ. '') e_FluxB6(i__) = rNULL__
if(ar__(547:556) .EQ. '') RateB8(i__) = rNULL__
if(ar__(558:566) .EQ. '') e_RateB8(i__) = rNULL__
if(ar__(568:577) .EQ. '') RateB7(i__) = rNULL__
if(ar__(579:587) .EQ. '') e_RateB7(i__) = rNULL__
if(ar__(589:598) .EQ. '') RateB6(i__) = rNULL__
if(ar__(600:608) .EQ. '') e_RateB6(i__) = rNULL__
if(ar__(610:618) .EQ. '') RAdegB8(i__) = rNULL__
if(ar__(620:628) .EQ. '') DEdegB8(i__) = rNULL__
if(ar__(630:638) .EQ. '') ePosB8(i__) = rNULL__
if(ar__(640:648) .EQ. '') GLONB8(i__) = rNULL__
if(ar__(650:658) .EQ. '') GLATB8(i__) = rNULL__
if(ar__(660:668) .EQ. '') RAdegB7(i__) = rNULL__
if(ar__(670:678) .EQ. '') DEdegB7(i__) = rNULL__
if(ar__(680:688) .EQ. '') ePosB7(i__) = rNULL__
if(ar__(690:698) .EQ. '') GLONB7(i__) = rNULL__
if(ar__(700:708) .EQ. '') GLATB7(i__) = rNULL__
if(ar__(710:718) .EQ. '') RAdegB6(i__) = rNULL__
if(ar__(720:728) .EQ. '') DEdegB6(i__) = rNULL__
if(ar__(730:737) .EQ. '') ePosB6(i__) = rNULL__
if(ar__(739:747) .EQ. '') GLONB6(i__) = rNULL__
if(ar__(749:757) .EQ. '') GLATB6(i__) = rNULL__
if(ar__(1110:1119) .EQ. '') DistC(i__) = rNULL__
if(ar__(1121:1126) .EQ. '') DistR(i__) = rNULL__
if(ar__(1239:1257) .EQ. '') GaiaID(i__) = iNULL__
if(ar__(1271:1274) .EQ. '') HR(i__) = iNULL__
if(ar__(1329:1334) .EQ. '') e_MtchRA(i__) = rNULL__
if(ar__(1336:1341) .EQ. '') e_MtchDE(i__) = rNULL__
if(ar__(1343:1349) .EQ. '') pmRA(i__) = rNULL__
if(ar__(1351:1357) .EQ. '') pmDE(i__) = rNULL__
if(ar__(1359:1362) .EQ. '') e_pmRA(i__) = rNULL__
if(ar__(1364:1367) .EQ. '') e_pmDE(i__) = rNULL__
if(ar__(1369:1374) .EQ. '') BTmag(i__) = rNULL__
if(ar__(1376:1380) .EQ. '') e_BTmag(i__) = rNULL__
if(ar__(1382:1387) .EQ. '') VTmag(i__) = rNULL__
if(ar__(1389:1393) .EQ. '') e_VTmag(i__) = rNULL__
if(ar__(1395:1400) .EQ. '') Bmag(i__) = rNULL__
if(ar__(1402:1407) .EQ. '') Vmag(i__) = rNULL__
if(ar__(1409:1414) .EQ. '') Gmag(i__) = rNULL__
if(ar__(1416:1421) .EQ. '') Jmag(i__) = rNULL__
if(ar__(1423:1427) .EQ. '') e_Jmag(i__) = rNULL__
if(ar__(1429:1434) .EQ. '') Hmag(i__) = rNULL__
if(ar__(1436:1440) .EQ. '') e_Hmag(i__) = rNULL__
if(ar__(1442:1447) .EQ. '') Kmag(i__) = rNULL__
if(ar__(1449:1453) .EQ. '') e_Kmag(i__) = rNULL__
if(ar__(1475:1481) .EQ. '') XSCID(i__) = iNULL__
if(ar__(1483:1490) .EQ. '') plx(i__) = rNULL__
if(ar__(1492:1498) .EQ. '') e_plx(i__) = rNULL__
if(ar__(1520:1525) .EQ. '') mbol(i__) = rNULL__
if(ar__(1527:1535) .EQ. '') Fbol(i__) = rNULL__
if(ar__(1537:1541) .EQ. '') Teff(i__) = iNULL__
if(ar__(1543:1549) .EQ. '') VMAG_1(i__) = rNULL__
if(ar__(1551:1557) .EQ. '') Mbol_1(i__) = rNULL__
if(ar__(1559:1567) .EQ. '') Lbol(i__) = rNULL__
if(ar__(1569:1577) .EQ. '') LX(i__) = rNULL__
if(ar__(1608:1612) .EQ. '') v2RXSr(i__) = rNULL__
if(ar__(1614:1622) .EQ. '') v2RXSFX(i__) = rNULL__
if(ar__(1657:1661) .EQ. '') SBDr(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ XMMSL2(i__),ObsId(i__),SNum(i__),RAdeg(i__),DEdeg(i__),
+ ePos(i__),GLON(i__),GLAT(i__),HR1(i__),e_HR1(i__),DateS(i__),
+ DateE(i__),SctsB8(i__),e_SctsB8(i__),SctsB7(i__),
+ e_SctsB7(i__),SctsB6(i__),e_SctsB6(i__),XimaB8(i__),
+ YimaB8(i__),XimaB7(i__),YimaB7(i__),XimaB6(i__),YimaB6(i__),
+ ExtB8(i__),e_ExtB8(i__),ExtB7(i__),e_ExtB7(i__),ExtB6(i__),
+ e_ExtB6(i__),DetMLB8(i__),DetMLB7(i__),DetMLB6(i__),
+ ExtMLB8(i__),ExtMLB7(i__),ExtMLB6(i__),BgMapB8(i__),
+ BgMapB7(i__),BgMapB6(i__),ExpMapB8(i__),ExpMapB7(i__),
+ ExpMapB6(i__),FluxB8(i__),e_FluxB8(i__),FluxB7(i__),
+ e_FluxB7(i__),FluxB6(i__),e_FluxB6(i__),RateB8(i__),
+ e_RateB8(i__),RateB7(i__),e_RateB7(i__),RateB6(i__),
+ e_RateB6(i__),RAdegB8(i__),DEdegB8(i__),ePosB8(i__),
+ GLONB8(i__),GLATB8(i__),RAdegB7(i__),DEdegB7(i__),ePosB7(i__),
+ GLONB7(i__),GLATB7(i__),RAdegB6(i__),DEdegB6(i__),ePosB6(i__),
+ GLONB6(i__),GLATB6(i__),Flag(i__),SnameB8(i__),SnameB7(i__),
+ SnameB6(i__),XInameB8(i__),XInameB7(i__),XInameB6(i__),
+ Inext(i__),Halo(i__),HIbgnd(i__),Nredg(i__),Psusp(i__),
+ False(i__),Com(i__),Ident(i__),v1RXS(i__),Type(i__),
+ r_Type(i__),DistC(i__),DistR(i__),ModeID(i__),ImBGRate(i__),
+ MJDStart(i__),MJDStop(i__),OPTLOAD(i__),FiltCt(i__),
+ UnfiltCt(i__),USXMMSL1(i__),USExtras(i__),XMMSLFX(i__),
+ NumDet(i__),NumMatch(i__),Priority(i__),Catalog(i__),r(i__),
+ Probr(i__),GaiaID(i__),Tycho2ID(i__),HR(i__),PM(i__),
+ v2MASSID(i__),MtchRA(i__),MtchDE(i__),e_MtchRA(i__),
+ e_MtchDE(i__),pmRA(i__),pmDE(i__),e_pmRA(i__),e_pmDE(i__),
+ BTmag(i__),e_BTmag(i__),VTmag(i__),e_VTmag(i__),Bmag(i__),
+ Vmag(i__),Gmag(i__),Jmag(i__),e_Jmag(i__),Hmag(i__),
+ e_Hmag(i__),Kmag(i__),e_Kmag(i__),Qflg(i__),Rflg(i__),
+ Bflg(i__),Cflg(i__),Xflg(i__),XSCID(i__),plx(i__),e_plx(i__),
+ CCDM(i__),SpType(i__),mbol(i__),Fbol(i__),Teff(i__),
+ VMAG_1(i__),n_VMAG(i__),Mbol_1(i__),n_Mbol(i__),Lbol(i__),
+ n_Lbol(i__),LX(i__),n_LX(i__),StFlg(i__),v2RXSID(i__),
+ v2RXSr(i__),v2RXSFX(i__),SBDID(i__),SBDr(i__),SBDotype(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end