CDS.headStuff2
FORTRAN Generation
Conversion of standardized ReadMe file for
catalog 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-Mar-28 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. IX/10A ROSAT All-Sky Bright Source Catalogue (1RXS) (Voges+ 1999) *================================================================================ *The ROSAT all-sky survey bright source catalogue. * Voges W., Aschenbach B., Boller T., Braeuninger H., Briel U., Burkert W., * Dennerl K., Englhauser J., Gruber R., Haberl F., Hartner G., Hasinger G., * Kuerster M., Pfeffermann E., Pietsch W., Predehl P., Rosso C., * Schmitt J.H.M.M., Truemper J., Zimmermann H.U. * <Astron. Astrophys. 349, 389 (1999)> * =1999A&A...349..389V C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for '1rxs.dat' ! The 1RXS catalogue integer*4 nr__ parameter (nr__=18806) ! Number of records character*185 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 v1RXS ! ROSAT All-Sky Survey Catalogue source name (1) character*1 n_1RXS ! [*] Names modified from previous version real*8 RAdeg ! (deg) Right ascension (J2000), decimal degrees real*8 DEdeg ! (deg) Declination (J2000), decimal degrees integer*4 PosErr ! (arcsec) ?=0 Total positional error * (including 6" systematic error) character*5 ScrFlags ! [T_] screening flags (2) character*4 NewFlag ! [T._] 'new data' flags (3) real*4 Count ! (ct/s) ?=0 Source countrate (4) real*4 e_Count ! (ct/s) ?=0 Error on Count (4) real*4 bgCt ! (ct/s/arcmin2) ?=0 Background countrate (4) integer*4 ExpTime ! (s) ?=0 Exposure time real*4 HR1 ! [-1/1]? Hardness ratio 1 (5) real*4 e_HR1 ! ? Error on HR1 (6) real*4 HR2 ! [-1/1]? hardness ratio 2 (5) real*4 e_HR2 ! ? Error on HR2 (6) integer*4 Extent ! (arcsec) Source extent, by which the source image * exceeds the point spread function. integer*4 L_Extent ! ?=0 Likelihood of source extent (7) integer*4 Ldetect ! ?=0 Likelihood of * source detection algorithm (7) integer*4 ExtRad ! (arcsec) ?=0 Extraction radius character*6 PrioFlags ! [01] priority flags (8) character*1 PHA ! [ABCDb] PHA range of best detection (9) real*4 VigFactor ! ?=0 Vignetting factor integer*4 IncDate ! ("YYMMDD") ?=0 Date when source was included (10) integer*4 UpdDate ! ("YYMMDD") ?=0 Date when source properties changed (11) integer*4 Ncand ! Number of identification candidates in the * correlation catalogue integer*4 SASS ! Identification number of SASS field (12) integer*4 MASOL ! SASS source number (MASOL number) * in SASS field (mainly for internal use) *Note (1): The name includes the '1RXS' acronym, and is based * on J2000 position (format JHHMMSS.S+DDMMSS). * This name is used in the generation of a link to a broad band * image if this image is available (see NewFlag, and Note (3)) * See the changes in sources compared to the 1996 version in the * "History" section below *Note (2): the flags are 'T' for 'true', 'F' or '_' for 'false'; '.' for not used * n (byte 48) nearby sources affecting SASS flux determination * p (byte 49) possible problem with position determination * e (byte 50) source extended beyond SASS extraction radius * d (byte 51) complex diffuse emission pattern * m (byte 52) source missed by SASS *Note (3): the flags are 'T' for 'true', 'F' or '_' for 'false'; '.' for not used * r (byte 54) source counts and extraction radius recalculated * i (byte 55) broad band image available (html link!) * v (byte 56) variability flag (not yet filled) * . (byte 57) dummy flag *Note (4): Countrates are vignetting corrected *Note (5): The hardness ratios are defined by: * hr1 = ( B - A ) / ( B + A ) , where * A = countrate in PHA range 11 - 41 (~ 0.1-0.4 keV) * B = countrate in PHA range 52 - 201 (~ 0.5-2.0 keV) * hr2 = ( D - C ) / ( D + C ) , where * C = countrate in PHA range 52 - 90 (~ 0.5-0.9 keV) * D = countrate in PHA range 91 - 201 (~ 0.9-2.0 keV) * (PHA = Pulse Height Amplitude) *Note (6): the true mean error is probably bigger, and * values larger than 9.99 are set to 9.99 *Note (7): values larger than 9999 are set to 9999 *Note (8): the flags indicate the sliding window detection history * using either the background map (M) or the local background (B), * and take the values 0 = no detection, 1 = detection; * The order of flags is: * M-broad, L-broad, M-hard, L-hard, M-soft, L-soft *Note (9): the PHA (Pulse Height Amplitude) range * PHA range with highest detection likelihood is indicated by * A = PHA range 11-41 (~ 0.1-0.4 keV) * B = PHA range 52-201 (~ 0.5-2.0 keV) * C = PHA range 52-90 (~ 0.5-0.9 keV) * D = PHA range 91-201 (~ 0.9-2.0 keV) * b or blank means 'broad' *Note (10): a value "000000" for the date indicates a removed source *Note (11): a value "000000" indicates not-applicable date *Note (12): An overview of the field structure is available at URL * http://www.xray.mpe.mpg.de/rosat/survey/rass-bsc/sup/psplit.ps.gz c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for '1rxs_cor.dat' ! 1RXS Correlation entries integer*4 nr__1 parameter (nr__1=18806) ! Number of records character*225 ar__1 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 v1RXS_1 ! 1RXS name real*8 RAdeg_1 ! (deg) Right ascension (J2000) real*8 DEdeg_1 ! (deg) Declination (J2000) integer*4 PosErr_1 ! (arcsec) Total positional error integer*4 Nid ! Number of correlated sources character*1 bandPos ! [x] origin of the source position * (always x: X-ray) real*4 gal_Nh ! (10+21cm-2) Galactic HI column density * (in 10^21^atoms/cm^2^) real*8 GLON ! (deg) Galactic longitude real*8 GLAT ! (deg) Galactic latitude real*4 HR1_1 ! Hardness ratio 1 real*4 e_HR1_1 ! rms uncertainty on HR1 real*4 HR2_1 ! Hardness ratio 2 real*4 e_HR2_1 ! rms uncertainty on HR2 integer*4 Extent_1 ! Source extent integer*4 L_Extent_1 ! Likelihood of source extent integer*4 Ldetect_1 ! Likelihood of source detection algorithm integer*4 ExpTime_1 ! (s) Exposure time real*4 Count_1 ! (ct/s) Source count rate real*4 e_Count_1 ! (ct/s) rms uncertainty on Count real*4 Flux1 ! (mW/m2) X-ray flux 1 in 0.1-2.4keV energy range real*4 Flux2 ! (mW/m2) X-ray flux 2 in 0.1-2.4keV energy range integer*4 begDate ! ("YYMMDD") First date of observation real*4 begDate_f ! (d) First date of observation (day fraction) integer*4 endDate ! ("YYMMDD") Last date of observation real*4 endDate_f ! (d) Last date of observation (day fraction) integer*4 IncDate_1 ! ("YYMMDD") Date when source was included integer*4 UpdDate_1 ! ("YYMMDD") ?=0 Date when source properties changed c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'cor_iras.dat' ! 1RXS Correlation to IRASPSC, IRASFSC integer*4 nr__2 parameter (nr__2=7972) ! Number of records character*178 ar__2 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 v1RXS_2 ! 1RXS source name integer*4 Rank ! Rank in correlation list for the source character*21 sourceID ! Source identification (1) real*8 RAdeg_2 ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_2 ! (deg) Declination (J2000) integer*4 Sep ! (arcsec) Separation integer*4 PA ! (deg) [0/360] Position angle character*10 r_sourceID ! Source catalogue (see file "refs.dat") character*1 bandPos_1 ! [i] Origin of the source position (i: IR) character*10 Type ! Type or class of object real*4 F12um ! (Jy) Infrared flux in the 12{mu}m band real*4 F25um ! (Jy) Infrared flux in the 25{mu}m band real*4 F60um ! (Jy) Infrared flux in the 60{mu}m band real*4 F100um ! (Jy) Infrared flux in the 100{mu}m band character*25 Com ! Comments integer*4 IncDate_2 ! ("YYMMDD") Date when source was included integer*4 UpdDate_2 ! ("YYMMDD") ?=0 Date when source properties were changed *Note (1): the IRASPSC numbers do not correspond to the usual IRAS designations. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'cor_ned.dat' ! 1RXS Correlation to NED integer*4 nr__3 parameter (nr__3=38670) ! Number of records character*196 ar__3 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 v1RXS_3 ! 1RXS source name integer*4 Rank_1 ! Rank in correlation list for the source character*21 sourceID_1 ! Source identification real*8 RAdeg_3 ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_3 ! (deg) Declination (J2000) integer*4 Sep_1 ! (arcsec) Separation integer*4 PA_1 ! (deg) [0/360] Position angle character*10 r_sourceID_1 ! Source catalogue (see file "refs.dat") character*1 bandPos_2 ! [giorx] Origin of the source position (1) character*10 Type_1 ! Type or class of object real*4 fxfopt ! ? Ratio of X-ray to optical flux f_X / f_opt character*1 l_vmag ! Limit flag on vmag real*4 vmag ! (mag) ? Visual magnitude character*1 n_vmag ! [:/+] : => Uncertainty flag on vmag * / => interval of magnitude * + => 18+ ??? integer*4 vmag2 ! ? Second value of vmag when interval character*1 u_vmag2 ! [?] Uncertainty flag on vmag2 real*4 z ! ? Redshift character*1 l_NED_flux ! Limit flag on NED-flux real*8 NED_flux ! (mJy) ? Radio flux density or IR flux density * in the band given in fl-band real*4 fl_band ! (mum) ? Frequency band or wavelength band * used for flux given in NED-flux * (Radio [GHz], IR [mJy] for NED) character*1 l_Size ! Limit flag on Size real*8 Size ! (arcmin) ? Size of object character*1 u_Size ! Uncertainty flag on Size character*25 Com_1 ! Comments integer*4 IncDate_3 ! ("YYMMDD") Date when source was included integer*4 UpdDate_3 ! ("YYMMDD") ?=0 Date when source properties were changed *Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'cor_nvs.dat' ! 1RXS Correlation to NVSS, FIRST integer*4 nr__4 parameter (nr__4=31674) ! Number of records character*139 ar__4 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 v1RXS_4 ! 1RXS source name integer*4 Rank_2 ! Rank in correlation list for the source character*21 sourceID_2 ! Source identification real*8 RAdeg_4 ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_4 ! (deg) Declination (J2000) integer*4 Sep_2 ! (arcsec) Separation integer*4 PA_2 ! (deg) [0/360] Position angle character*10 r_sourceID_2 ! Source catalogue (see file "refs.dat") character*1 bandPos_3 ! [orx] Origin of the source position (1) character*10 Type_2 ! Type or class of object real*8 dist ! (kpc) ? Distance real*8 F20cm_I ! (mJy) ? Radio integrated flux density in the * 20cm band real*8 F20cm_P ! (mJy) ? Radio peak flux density in the 20cm band integer*4 IncDate_4 ! ("YYMMDD") Date when source was included integer*4 UpdDate_4 ! ("YYMMDD") ?=0 Date when source properties were changed *Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'cor_pri.dat' ! 1RXS Correlation to PRI, RITTER, SIMBAD, TYCHO, EUVE integer*4 nr__5 parameter (nr__5=54935) ! Number of records character*214 ar__5 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 v1RXS_5 ! 1RXS source name integer*4 Rank_3 ! Rank in correlation list for the source character*21 sourceID_3 ! Source identification (see also r_sourceID) real*8 RAdeg_5 ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_5 ! (deg) Declination (J2000) integer*4 Sep_3 ! (arcsec) Separation integer*4 PA_3 ! (deg) [0/360] Position angle character*10 r_sourceID_3 ! Source catalogue (see file "refs.dat") character*1 bandPos_4 ! [oexr] Origin of the source position (1) character*10 Type_3 ! Type or class of object real*4 fxfopt_1 ! ? Ratio of X-ray to optical flux f_X / f_opt character*1 l_vmag_1 ! Limit flag on vmag real*4 vmag_1 ! (mag) ? Visual magnitude real*4 bmag ! (mag) ? Blue magnitude real*4 rmag ! (mag) ? Red magnitude real*4 b_r ! (mag) ? (blue-red) colour real*4 b_v ! (mag) ? (blue-visual) colour real*4 u_b ! (mag) ? (ultraviolet-blue) colour character*2 var ! Variability flag character*1 n_z ! [*>] Note on z real*4 z_1 ! ? Redshift (from PRI or SIMBAD) integer*4 Vr ! (km/s) ? Radial velocity (from SIMBAD only) real*4 dist_1 ! (kpc) ? Distance character*25 Com_2 ! Comments integer*4 IncDate_5 ! ("YYMMDD") Date when source was included integer*4 UpdDate_5 ! ("YYMMDD") ?=0 Date when source properties were changed *Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'cor_hst.dat' ! 1RXS Correlation to HST_GSC integer*4 nr__6 parameter (nr__6=26210) ! Number of records character*214 ar__6 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 v1RXS_6 ! 1RXS source name integer*4 Rank_4 ! Rank in correlation list for the source character*21 sourceID_4 ! Source identification (see also r_sourceID) real*8 RAdeg_6 ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_6 ! (deg) Declination (J2000) integer*4 Sep_4 ! (arcsec) Separation integer*4 PA_4 ! (deg) [0/360] Position angle character*10 r_sourceID_4 ! Source catalogue (see file "refs.dat") character*1 bandPos_5 ! [oexr] Origin of the source position (1) character*10 Type_4 ! Type or class of object real*4 fxfopt_2 ! ? Ratio of X-ray to optical flux f_X / f_opt character*1 l_vmag_2 ! Limit flag on vmag real*4 vmag_2 ! (mag) ? Visual magnitude real*4 bmag_1 ! (mag) ? Blue magnitude real*4 rmag_1 ! (mag) ? Red magnitude real*4 b_r_1 ! (mag) ? (blue-red) colour real*4 b_v_1 ! (mag) ? (blue-visual) colour real*4 u_b_1 ! (mag) ? (ultraviolet-blue) colour character*2 var_1 ! Variability flag character*1 n_z_1 ! [*>] Note on z real*4 z_2 ! ? Redshift (from PRI or SIMBAD) integer*4 Vr_1 ! (km/s) ? Radial velocity (from SIMBAD only) real*4 dist_2 ! (kpc) ? Distance character*25 Com_3 ! Comments integer*4 IncDate_6 ! ("YYMMDD") Date when source was included integer*4 UpdDate_6 ! ("YYMMDD") ?=0 Date when source properties were changed *Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'cor_wfc.dat' ! 1RXS Correlation to ROSAT-WFC integer*4 nr__7 parameter (nr__7=605) ! Number of records character*214 ar__7 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 v1RXS_7 ! 1RXS source name integer*4 Rank_5 ! Rank in correlation list for the source character*21 sourceID_5 ! Source identification (see also r_sourceID) real*8 RAdeg_7 ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_7 ! (deg) Declination (J2000) integer*4 Sep_5 ! (arcsec) Separation integer*4 PA_5 ! (deg) [0/360] Position angle character*10 r_sourceID_5 ! Source catalogue (see file "refs.dat") character*1 bandPos_6 ! [oexr] Origin of the source position (1) character*10 Type_5 ! Type or class of object real*4 fxfopt_3 ! ? Ratio of X-ray to optical flux f_X / f_opt character*1 l_vmag_3 ! Limit flag on vmag real*4 vmag_3 ! (mag) ? Visual magnitude real*4 bmag_2 ! (mag) ? Blue magnitude real*4 rmag_2 ! (mag) ? Red magnitude real*4 b_r_2 ! (mag) ? (blue-red) colour real*4 b_v_2 ! (mag) ? (blue-visual) colour real*4 u_b_2 ! (mag) ? (ultraviolet-blue) colour character*2 var_2 ! Variability flag character*1 n_z_2 ! [*>] Note on z real*4 z_3 ! ? Redshift (from PRI or SIMBAD) integer*4 Vr_2 ! (km/s) ? Radial velocity (from SIMBAD only) real*4 dist_3 ! (kpc) ? Distance character*25 Com_4 ! Comments integer*4 IncDate_7 ! ("YYMMDD") Date when source was included integer*4 UpdDate_7 ! ("YYMMDD") ?=0 Date when source properties were changed *Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'cor_ros.dat' ! 1RXS Correlation to ROSATP3, ROSATWGA, ROSATHRI integer*4 nr__8 parameter (nr__8=24355) ! Number of records character*204 ar__8 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 v1RXS_8 ! 1RXS source name integer*4 Rank_6 ! Rank in correlation list for the source character*21 sourceID_6 ! Source identification real*8 RAdeg_8 ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_8 ! (deg) Declination (J2000) integer*4 Sep_6 ! (arcsec) Separation integer*4 PA_6 ! (deg) [0/360] Position angle character*10 r_sourceID_6 ! Source catalogue (see file "refs.dat") character*1 bandPos_7 ! [ex] Origin of the source position (1) character*10 Type_6 ! Type or class of object real*4 HR1_2 ! ? Hardness ratio 1 real*4 e_HR1_2 ! ? rms uncertainty on HR1 real*4 HR2_2 ! ? Hardness ratio 2 real*4 e_HR2_2 ! ? rms uncertainty on HR2 integer*4 Extent_2 ! ? Source extent integer*4 L_Extent_2 ! ? Likelihood of source extent integer*4 Ldetect_2 ! ? Likelihood of source detection algorithm integer*4 ExpTime_2 ! (s) Exposure time real*4 Count_2 ! Source countrate real*4 e_Count_2 ! rms uncertainty on Count real*4 roff ! (arcmin) Off-axis angle character*25 Com_5 ! Comments integer*4 IncDate_8 ! ("YYMMDD") Date when source was included integer*4 UpdDate_8 ! ("YYMMDD") ?=0 Date when source properties were changed *Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'cor_ver.dat' ! 1RXS Correlation Catalogue to VERON8 (VII/207) integer*4 nr__9 parameter (nr__9=1935) ! Number of records character*198 ar__9 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 v1RXS_9 ! 1RXS source name integer*4 Rank_7 ! Rank in correlation list for the source character*21 sourceID_7 ! Source identification real*8 RAdeg_9 ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_9 ! (deg) Declination (J2000) integer*4 Sep_7 ! (arcsec) Separation integer*4 PA_7 ! (deg) [0/360] Position angle character*10 r_sourceID_7 ! Source catalogue (see file "refs.dat") character*1 bandPos_8 ! [oAOR] Origin of the source position (1) character*10 Type_7 ! Type or class of object real*4 fxfopt_4 ! ? Ratio of X-ray to optical flux f_X / f_opt character*1 l_vmag_4 ! Limit flag on vmag real*4 vmag_4 ! (mag) ? Visual magnitude real*4 rmag_3 ! (mag) ? Red magnitude real*4 b_v_3 ! (mag) ? (blue-visual) colour real*4 u_b_3 ! (mag) ? (ultraviolet-blue) colour character*1 n_z_3 ! [*>]Note on z real*4 z_4 ! ? Redshift real*8 R_f6cm ! (mJy) ? R-f6cm in the 6cm band real*8 R_f11cm ! (mJy) ? R-f11cm in the 11cm band character*25 Com_6 ! Comments integer*4 IncDate_9 ! ("YYMMDD") Date when source was included integer*4 UpdDate_9 ! ("YYMMDD") ?=0 Date when source properties were changed *Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__10 parameter (nr__10=79) ! Number of records character*137 ar__10 ! Full-size record character*10 catal_id ! Name of source catalogue character*25 Aut ! Author names character*19 BibCode ! BibCode character*80 Com_7 ! Comments C============================================================================= C Loading file '1rxs.dat' ! The 1RXS catalogue C Format for file interpretation 1 format( + 5X,A16,A1,1X,F9.5,1X,F9.5,2X,I2,1X,A5,1X,A4,2X,E9.3,1X,E9.3, + 1X,E9.3,2X,I5,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,3X,I3,1X,I4,1X, + I4,1X,I5,1X,A6,A1,1X,F4.2,1X,I6,1X,I6,1X,I3,2X,I8,1X,I4) C Effective file loading open(unit=1,status='old',file= +'1rxs.dat') write(6,*) '....Loading file: 1rxs.dat' do i__=1,18806 read(1,'(A185)')ar__ read(ar__,1) + v1RXS,n_1RXS,RAdeg,DEdeg,PosErr,ScrFlags,NewFlag,Count, + e_Count,bgCt,ExpTime,HR1,e_HR1,HR2,e_HR2,Extent,L_Extent, + Ldetect,ExtRad,PrioFlags,PHA,VigFactor,IncDate,UpdDate,Ncand, + SASS,MASOL if(ar__(97:101) .EQ. '') HR1 = rNULL__ if(ar__(103:106) .EQ. '') e_HR1 = rNULL__ if(ar__(108:112) .EQ. '') HR2 = rNULL__ if(ar__(114:117) .EQ. '') e_HR2 = rNULL__ c ..............Just test output........... write(6,1) + v1RXS,n_1RXS,RAdeg,DEdeg,PosErr,ScrFlags,NewFlag,Count, + e_Count,bgCt,ExpTime,HR1,e_HR1,HR2,e_HR2,Extent,L_Extent, + Ldetect,ExtRad,PrioFlags,PHA,VigFactor,IncDate,UpdDate,Ncand, + SASS,MASOL c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file '1rxs_cor.dat' ! 1RXS Correlation entries C Format for file interpretation 2 format( + 5X,A16,1X,F8.4,1X,F8.4,3X,I2,1X,I3,12X,A1,13X,F6.3,1X,F8.4,1X, + F8.4,6X,F5.2,2X,F4.2,1X,F5.2,2X,F4.2,1X,I3,1X,I3,1X,I3,1X,I5, + 1X,E8.2,1X,E8.2,2X,E9.3,1X,E9.3,6X,I6,F3.2,1X,I6,F3.2,2X,I6, + 1X,I6) C Effective file loading open(unit=1,status='old',file= +'1rxs_cor.dat') write(6,*) '....Loading file: 1rxs_cor.dat' do i__=1,18806 read(1,'(A225)')ar__1 read(ar__1,2) + v1RXS_1,RAdeg_1,DEdeg_1,PosErr_1,Nid,bandPos,gal_Nh,GLON,GLAT, + HR1_1,e_HR1_1,HR2_1,e_HR2_1,Extent_1,L_Extent_1,Ldetect_1, + ExpTime_1,Count_1,e_Count_1,Flux1,Flux2,begDate,begDate_f, + endDate,endDate_f,IncDate_1,UpdDate_1 c ..............Just test output........... write(6,2) + v1RXS_1,RAdeg_1,DEdeg_1,PosErr_1,Nid,bandPos,gal_Nh,GLON,GLAT, + HR1_1,e_HR1_1,HR2_1,e_HR2_1,Extent_1,L_Extent_1,Ldetect_1, + ExpTime_1,Count_1,e_Count_1,Flux1,Flux2,begDate,begDate_f, + endDate,endDate_f,IncDate_1,UpdDate_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'cor_iras.dat' ! 1RXS Correlation to IRASPSC, IRASFSC C Format for file interpretation 3 format( + 5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1, + 1X,A10,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,A25,1X,I6,1X,I6) C Effective file loading open(unit=1,status='old',file= +'cor_iras.dat') write(6,*) '....Loading file: cor_iras.dat' do i__=1,7972 read(1,'(A178)')ar__2 read(ar__2,3) + v1RXS_2,Rank,sourceID,RAdeg_2,DEdeg_2,Sep,PA,r_sourceID, + bandPos_1,Type,F12um,F25um,F60um,F100um,Com,IncDate_2, + UpdDate_2 c ..............Just test output........... write(6,3) + v1RXS_2,Rank,sourceID,RAdeg_2,DEdeg_2,Sep,PA,r_sourceID, + bandPos_1,Type,F12um,F25um,F60um,F100um,Com,IncDate_2, + UpdDate_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'cor_ned.dat' ! 1RXS Correlation to NED C Format for file interpretation 4 format( + 5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1, + 1X,A10,2X,F5.2,1X,A1,F6.3,A1,I2,A1,1X,F6.4,1X,A1,F9.2,1X,E9.3, + 1X,A1,F7.3,A1,1X,A25,2X,I6,1X,I6) C Effective file loading open(unit=1,status='old',file= +'cor_ned.dat') write(6,*) '....Loading file: cor_ned.dat' do i__=1,38670 read(1,'(A196)')ar__3 read(ar__3,4) + v1RXS_3,Rank_1,sourceID_1,RAdeg_3,DEdeg_3,Sep_1,PA_1, + r_sourceID_1,bandPos_2,Type_1,fxfopt,l_vmag,vmag,n_vmag,vmag2, + u_vmag2,z,l_NED_flux,NED_flux,fl_band,l_Size,Size,u_Size, + Com_1,IncDate_3,UpdDate_3 if(ar__3(101:105) .EQ. '') fxfopt = rNULL__ if(ar__3(108:113) .EQ. '') vmag = rNULL__ if(ar__3(115:116) .EQ. '') vmag2 = iNULL__ if(ar__3(119:124) .EQ. '') z = rNULL__ if(ar__3(127:135) .EQ. '') NED_flux = rNULL__ if(ar__3(137:145) .EQ. '') fl_band = rNULL__ if(ar__3(148:154) .EQ. '') Size = rNULL__ c ..............Just test output........... write(6,4) + v1RXS_3,Rank_1,sourceID_1,RAdeg_3,DEdeg_3,Sep_1,PA_1, + r_sourceID_1,bandPos_2,Type_1,fxfopt,l_vmag,vmag,n_vmag,vmag2, + u_vmag2,z,l_NED_flux,NED_flux,fl_band,l_Size,Size,u_Size, + Com_1,IncDate_3,UpdDate_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'cor_nvs.dat' ! 1RXS Correlation to NVSS, FIRST C Format for file interpretation 5 format( + 5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1, + 1X,A10,1X,F7.1,1X,F8.2,1X,F9.2,1X,I6,1X,I6) C Effective file loading open(unit=1,status='old',file= +'cor_nvs.dat') write(6,*) '....Loading file: cor_nvs.dat' do i__=1,31674 read(1,'(A139)')ar__4 read(ar__4,5) + v1RXS_4,Rank_2,sourceID_2,RAdeg_4,DEdeg_4,Sep_2,PA_2, + r_sourceID_2,bandPos_3,Type_2,dist,F20cm_I,F20cm_P,IncDate_4, + UpdDate_4 if(ar__4(100:106) .EQ. '') dist = rNULL__ if(ar__4(108:115) .EQ. '') F20cm_I = rNULL__ if(ar__4(117:125) .EQ. '') F20cm_P = rNULL__ c ..............Just test output........... write(6,5) + v1RXS_4,Rank_2,sourceID_2,RAdeg_4,DEdeg_4,Sep_2,PA_2, + r_sourceID_2,bandPos_3,Type_2,dist,F20cm_I,F20cm_P,IncDate_4, + UpdDate_4 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'cor_pri.dat' ! 1RXS Correlation to PRI, RITTER, SIMBAD, TYCHO, * EUVE C Format for file interpretation 6 format( + 5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1, + 1X,A10,2X,F5.2,1X,A1,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,1X,F5.2,2X, + F5.2,2X,A2,2X,A1,F6.4,1X,I5,1X,E8.3,1X,A25,1X,I6,1X,I6) C Effective file loading open(unit=1,status='old',file= +'cor_pri.dat') write(6,*) '....Loading file: cor_pri.dat' do i__=1,54935 read(1,'(A214)')ar__5 read(ar__5,6) + v1RXS_5,Rank_3,sourceID_3,RAdeg_5,DEdeg_5,Sep_3,PA_3, + r_sourceID_3,bandPos_4,Type_3,fxfopt_1,l_vmag_1,vmag_1,bmag, + rmag,b_r,b_v,u_b,var,n_z,z_1,Vr,dist_1,Com_2,IncDate_5, + UpdDate_5 if(ar__5(101:105) .EQ. '') fxfopt_1 = rNULL__ if(ar__5(108:112) .EQ. '') vmag_1 = rNULL__ if(ar__5(115:119) .EQ. '') bmag = rNULL__ if(ar__5(122:126) .EQ. '') rmag = rNULL__ if(ar__5(129:133) .EQ. '') b_r = rNULL__ if(ar__5(135:139) .EQ. '') b_v = rNULL__ if(ar__5(142:146) .EQ. '') u_b = rNULL__ if(ar__5(154:159) .EQ. '') z_1 = rNULL__ if(ar__5(161:165) .EQ. '') Vr = iNULL__ if(ar__5(167:174) .EQ. '') dist_1 = rNULL__ c ..............Just test output........... write(6,6) + v1RXS_5,Rank_3,sourceID_3,RAdeg_5,DEdeg_5,Sep_3,PA_3, + r_sourceID_3,bandPos_4,Type_3,fxfopt_1,l_vmag_1,vmag_1,bmag, + rmag,b_r,b_v,u_b,var,n_z,z_1,Vr,dist_1,Com_2,IncDate_5, + UpdDate_5 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'cor_hst.dat' ! 1RXS Correlation to HST_GSC C Format for file interpretation 7 format( + 5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1, + 1X,A10,2X,F5.2,1X,A1,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,1X,F5.2,2X, + F5.2,2X,A2,2X,A1,F6.4,1X,I5,1X,E8.3,1X,A25,1X,I6,1X,I6) C Effective file loading open(unit=1,status='old',file= +'cor_hst.dat') write(6,*) '....Loading file: cor_hst.dat' do i__=1,26210 read(1,'(A214)')ar__6 read(ar__6,7) + v1RXS_6,Rank_4,sourceID_4,RAdeg_6,DEdeg_6,Sep_4,PA_4, + r_sourceID_4,bandPos_5,Type_4,fxfopt_2,l_vmag_2,vmag_2,bmag_1, + rmag_1,b_r_1,b_v_1,u_b_1,var_1,n_z_1,z_2,Vr_1,dist_2,Com_3, + IncDate_6,UpdDate_6 if(ar__6(101:105) .EQ. '') fxfopt_2 = rNULL__ if(ar__6(108:112) .EQ. '') vmag_2 = rNULL__ if(ar__6(115:119) .EQ. '') bmag_1 = rNULL__ if(ar__6(122:126) .EQ. '') rmag_1 = rNULL__ if(ar__6(129:133) .EQ. '') b_r_1 = rNULL__ if(ar__6(135:139) .EQ. '') b_v_1 = rNULL__ if(ar__6(142:146) .EQ. '') u_b_1 = rNULL__ if(ar__6(154:159) .EQ. '') z_2 = rNULL__ if(ar__6(161:165) .EQ. '') Vr_1 = iNULL__ if(ar__6(167:174) .EQ. '') dist_2 = rNULL__ c ..............Just test output........... write(6,7) + v1RXS_6,Rank_4,sourceID_4,RAdeg_6,DEdeg_6,Sep_4,PA_4, + r_sourceID_4,bandPos_5,Type_4,fxfopt_2,l_vmag_2,vmag_2,bmag_1, + rmag_1,b_r_1,b_v_1,u_b_1,var_1,n_z_1,z_2,Vr_1,dist_2,Com_3, + IncDate_6,UpdDate_6 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'cor_wfc.dat' ! 1RXS Correlation to ROSAT-WFC C Format for file interpretation 8 format( + 5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1, + 1X,A10,2X,F5.2,1X,A1,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,1X,F5.2,2X, + F5.2,2X,A2,2X,A1,F6.4,1X,I5,1X,E8.3,1X,A25,1X,I6,1X,I6) C Effective file loading open(unit=1,status='old',file= +'cor_wfc.dat') write(6,*) '....Loading file: cor_wfc.dat' do i__=1,605 read(1,'(A214)')ar__7 read(ar__7,8) + v1RXS_7,Rank_5,sourceID_5,RAdeg_7,DEdeg_7,Sep_5,PA_5, + r_sourceID_5,bandPos_6,Type_5,fxfopt_3,l_vmag_3,vmag_3,bmag_2, + rmag_2,b_r_2,b_v_2,u_b_2,var_2,n_z_2,z_3,Vr_2,dist_3,Com_4, + IncDate_7,UpdDate_7 if(ar__7(101:105) .EQ. '') fxfopt_3 = rNULL__ if(ar__7(108:112) .EQ. '') vmag_3 = rNULL__ if(ar__7(115:119) .EQ. '') bmag_2 = rNULL__ if(ar__7(122:126) .EQ. '') rmag_2 = rNULL__ if(ar__7(129:133) .EQ. '') b_r_2 = rNULL__ if(ar__7(135:139) .EQ. '') b_v_2 = rNULL__ if(ar__7(142:146) .EQ. '') u_b_2 = rNULL__ if(ar__7(154:159) .EQ. '') z_3 = rNULL__ if(ar__7(161:165) .EQ. '') Vr_2 = iNULL__ if(ar__7(167:174) .EQ. '') dist_3 = rNULL__ c ..............Just test output........... write(6,8) + v1RXS_7,Rank_5,sourceID_5,RAdeg_7,DEdeg_7,Sep_5,PA_5, + r_sourceID_5,bandPos_6,Type_5,fxfopt_3,l_vmag_3,vmag_3,bmag_2, + rmag_2,b_r_2,b_v_2,u_b_2,var_2,n_z_2,z_3,Vr_2,dist_3,Com_4, + IncDate_7,UpdDate_7 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'cor_ros.dat' ! 1RXS Correlation to ROSATP3, ROSATWGA, ROSATHRI C Format for file interpretation 9 format( + 5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1, + 1X,A10,1X,F5.2,2X,F4.2,1X,F5.2,2X,F4.2,1X,I3,1X,I3,1X,I3,I6, + 1X,E8.2,1X,E8.2,2X,F4.1,1X,A25,1X,I6,1X,I6) C Effective file loading open(unit=1,status='old',file= +'cor_ros.dat') write(6,*) '....Loading file: cor_ros.dat' do i__=1,24355 read(1,'(A204)')ar__8 read(ar__8,9) + v1RXS_8,Rank_6,sourceID_6,RAdeg_8,DEdeg_8,Sep_6,PA_6, + r_sourceID_6,bandPos_7,Type_6,HR1_2,e_HR1_2,HR2_2,e_HR2_2, + Extent_2,L_Extent_2,Ldetect_2,ExpTime_2,Count_2,e_Count_2, + roff,Com_5,IncDate_8,UpdDate_8 if(ar__8(100:104) .EQ. '') HR1_2 = rNULL__ if(ar__8(107:110) .EQ. '') e_HR1_2 = rNULL__ if(ar__8(112:116) .EQ. '') HR2_2 = rNULL__ if(ar__8(119:122) .EQ. '') e_HR2_2 = rNULL__ if(ar__8(124:126) .EQ. '') Extent_2 = iNULL__ if(ar__8(128:130) .EQ. '') L_Extent_2 = iNULL__ if(ar__8(132:134) .EQ. '') Ldetect_2 = iNULL__ c ..............Just test output........... write(6,9) + v1RXS_8,Rank_6,sourceID_6,RAdeg_8,DEdeg_8,Sep_6,PA_6, + r_sourceID_6,bandPos_7,Type_6,HR1_2,e_HR1_2,HR2_2,e_HR2_2, + Extent_2,L_Extent_2,Ldetect_2,ExpTime_2,Count_2,e_Count_2, + roff,Com_5,IncDate_8,UpdDate_8 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'cor_ver.dat' ! 1RXS Correlation Catalogue to VERON8 (VII/207) C Format for file interpretation 10 format( + 5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1, + 1X,A10,2X,F5.2,1X,A1,F5.2,1X,F5.2,1X,F5.2,2X,F5.2,1X,A1,F5.3, + 2X,F8.2,2X,F8.2,1X,A25,1X,I6,1X,I6) C Effective file loading open(unit=1,status='old',file= +'cor_ver.dat') write(6,*) '....Loading file: cor_ver.dat' do i__=1,1935 read(1,'(A198)')ar__9 read(ar__9,10) + v1RXS_9,Rank_7,sourceID_7,RAdeg_9,DEdeg_9,Sep_7,PA_7, + r_sourceID_7,bandPos_8,Type_7,fxfopt_4,l_vmag_4,vmag_4,rmag_3, + b_v_3,u_b_3,n_z_3,z_4,R_f6cm,R_f11cm,Com_6,IncDate_9,UpdDate_9 if(ar__9(101:105) .EQ. '') fxfopt_4 = rNULL__ if(ar__9(108:112) .EQ. '') vmag_4 = rNULL__ if(ar__9(114:118) .EQ. '') rmag_3 = rNULL__ if(ar__9(120:124) .EQ. '') b_v_3 = rNULL__ if(ar__9(127:131) .EQ. '') u_b_3 = rNULL__ if(ar__9(134:138) .EQ. '') z_4 = rNULL__ if(ar__9(141:148) .EQ. '') R_f6cm = rNULL__ if(ar__9(151:158) .EQ. '') R_f11cm = rNULL__ c ..............Just test output........... write(6,10) + v1RXS_9,Rank_7,sourceID_7,RAdeg_9,DEdeg_9,Sep_7,PA_7, + r_sourceID_7,bandPos_8,Type_7,fxfopt_4,l_vmag_4,vmag_4,rmag_3, + b_v_3,u_b_3,n_z_3,z_4,R_f6cm,R_f11cm,Com_6,IncDate_9,UpdDate_9 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 11 format(A10,1X,A25,1X,A19,1X,A80) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,79 read(1,'(A137)')ar__10 read(ar__10,11)catal_id,Aut,BibCode,Com_7 c ..............Just test output........... write(6,11)catal_id,Aut,BibCode,Com_7 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end