Conversion of standardized ReadMe file for
file /./ftp/cats/IX/10A 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-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 (nr__) ! ROSAT All-Sky Survey Catalogue source name (1) character*1 n_1RXS (nr__) ! [*] Names modified from previous version real*8 RAdeg (nr__) ! (deg) Right ascension (J2000), decimal degrees real*8 DEdeg (nr__) ! (deg) Declination (J2000), decimal degrees integer*4 PosErr (nr__) ! (arcsec) ?=0 Total positional error * (including 6" systematic error) character*5 ScrFlags (nr__) ! [T_] screening flags (2) character*4 NewFlag (nr__) ! [T._] 'new data' flags (3) real*4 Count (nr__) ! (ct/s) ?=0 Source countrate (4) real*4 e_Count (nr__) ! (ct/s) ?=0 Error on Count (4) real*4 bgCt (nr__) ! (ct/s/arcmin2) ?=0 Background countrate (4) integer*4 ExpTime (nr__) ! (s) ?=0 Exposure time real*4 HR1 (nr__) ! [-1/1]? Hardness ratio 1 (5) real*4 e_HR1 (nr__) ! ? Error on HR1 (6) real*4 HR2 (nr__) ! [-1/1]? hardness ratio 2 (5) real*4 e_HR2 (nr__) ! ? Error on HR2 (6) integer*4 Extent (nr__) ! (arcsec) Source extent, by which the source image * exceeds the point spread function. integer*4 L_Extent (nr__) ! ?=0 Likelihood of source extent (7) integer*4 Ldetect (nr__) ! ?=0 Likelihood of * source detection algorithm (7) integer*4 ExtRad (nr__) ! (arcsec) ?=0 Extraction radius character*6 PrioFlags (nr__) ! [01] priority flags (8) character*1 PHA (nr__) ! [ABCDb] PHA range of best detection (9) real*4 VigFactor (nr__) ! ?=0 Vignetting factor integer*4 IncDate (nr__) ! ("YYMMDD") ?=0 Date when source was included (10) integer*4 UpdDate (nr__) ! ("YYMMDD") ?=0 Date when source properties changed (11) integer*4 Ncand (nr__) ! Number of identification candidates in the * correlation catalogue integer*4 SASS (nr__) ! Identification number of SASS field (12) integer*4 MASOL (nr__) ! 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 (nr__1) ! 1RXS name real*8 RAdeg_1 (nr__1) ! (deg) Right ascension (J2000) real*8 DEdeg_1 (nr__1) ! (deg) Declination (J2000) integer*4 PosErr_1 (nr__1) ! (arcsec) Total positional error integer*4 Nid (nr__1) ! Number of correlated sources character*1 bandPos (nr__1) ! [x] origin of the source position * (always x: X-ray) real*4 gal_Nh (nr__1) ! (10+21cm-2) Galactic HI column density * (in 10^21^atoms/cm^2^) real*8 GLON (nr__1) ! (deg) Galactic longitude real*8 GLAT (nr__1) ! (deg) Galactic latitude real*4 HR1_1 (nr__1) ! Hardness ratio 1 real*4 e_HR1_1 (nr__1) ! rms uncertainty on HR1 real*4 HR2_1 (nr__1) ! Hardness ratio 2 real*4 e_HR2_1 (nr__1) ! rms uncertainty on HR2 integer*4 Extent_1 (nr__1) ! Source extent integer*4 L_Extent_1 (nr__1) ! Likelihood of source extent integer*4 Ldetect_1 (nr__1) ! Likelihood of source detection algorithm integer*4 ExpTime_1 (nr__1) ! (s) Exposure time real*4 Count_1 (nr__1) ! (ct/s) Source count rate real*4 e_Count_1 (nr__1) ! (ct/s) rms uncertainty on Count real*4 Flux1 (nr__1) ! (mW/m2) X-ray flux 1 in 0.1-2.4keV energy range real*4 Flux2 (nr__1) ! (mW/m2) X-ray flux 2 in 0.1-2.4keV energy range integer*4 begDate (nr__1) ! ("YYMMDD") First date of observation real*4 begDate_f (nr__1) ! (d) First date of observation (day fraction) integer*4 endDate (nr__1) ! ("YYMMDD") Last date of observation real*4 endDate_f (nr__1) ! (d) Last date of observation (day fraction) integer*4 IncDate_1 (nr__1) ! ("YYMMDD") Date when source was included integer*4 UpdDate_1 (nr__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 (nr__2) ! 1RXS source name integer*4 Rank (nr__2) ! Rank in correlation list for the source character*21 sourceID (nr__2) ! Source identification (1) real*8 RAdeg_2 (nr__2) ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_2 (nr__2) ! (deg) Declination (J2000) integer*4 Sep (nr__2) ! (arcsec) Separation integer*4 PA (nr__2) ! (deg) [0/360] Position angle character*10 r_sourceID (nr__2) ! Source catalogue (see file "refs.dat") character*1 bandPos_1 (nr__2) ! [i] Origin of the source position (i: IR) character*10 Type (nr__2) ! Type or class of object real*4 F12um (nr__2) ! (Jy) Infrared flux in the 12{mu}m band real*4 F25um (nr__2) ! (Jy) Infrared flux in the 25{mu}m band real*4 F60um (nr__2) ! (Jy) Infrared flux in the 60{mu}m band real*4 F100um (nr__2) ! (Jy) Infrared flux in the 100{mu}m band character*25 Com (nr__2) ! Comments integer*4 IncDate_2 (nr__2) ! ("YYMMDD") Date when source was included integer*4 UpdDate_2 (nr__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 (nr__3) ! 1RXS source name integer*4 Rank_1 (nr__3) ! Rank in correlation list for the source character*21 sourceID_1 (nr__3) ! Source identification real*8 RAdeg_3 (nr__3) ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_3 (nr__3) ! (deg) Declination (J2000) integer*4 Sep_1 (nr__3) ! (arcsec) Separation integer*4 PA_1 (nr__3) ! (deg) [0/360] Position angle character*10 r_sourceID_1(nr__3) ! Source catalogue (see file "refs.dat") character*1 bandPos_2 (nr__3) ! [giorx] Origin of the source position (1) character*10 Type_1 (nr__3) ! Type or class of object real*4 fxfopt (nr__3) ! ? Ratio of X-ray to optical flux f_X / f_opt character*1 l_vmag (nr__3) ! Limit flag on vmag real*4 vmag (nr__3) ! (mag) ? Visual magnitude character*1 n_vmag (nr__3) ! [:/+] : => Uncertainty flag on vmag * / => interval of magnitude * + => 18+ ??? integer*4 vmag2 (nr__3) ! ? Second value of vmag when interval character*1 u_vmag2 (nr__3) ! [?] Uncertainty flag on vmag2 real*4 z (nr__3) ! ? Redshift character*1 l_NED_flux (nr__3) ! Limit flag on NED-flux real*8 NED_flux (nr__3) ! (mJy) ? Radio flux density or IR flux density * in the band given in fl-band real*4 fl_band (nr__3) ! (mum) ? Frequency band or wavelength band * used for flux given in NED-flux * (Radio [GHz], IR [mJy] for NED) character*1 l_Size (nr__3) ! Limit flag on Size real*8 Size (nr__3) ! (arcmin) ? Size of object character*1 u_Size (nr__3) ! Uncertainty flag on Size character*25 Com_1 (nr__3) ! Comments integer*4 IncDate_3 (nr__3) ! ("YYMMDD") Date when source was included integer*4 UpdDate_3 (nr__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 (nr__4) ! 1RXS source name integer*4 Rank_2 (nr__4) ! Rank in correlation list for the source character*21 sourceID_2 (nr__4) ! Source identification real*8 RAdeg_4 (nr__4) ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_4 (nr__4) ! (deg) Declination (J2000) integer*4 Sep_2 (nr__4) ! (arcsec) Separation integer*4 PA_2 (nr__4) ! (deg) [0/360] Position angle character*10 r_sourceID_2(nr__4) ! Source catalogue (see file "refs.dat") character*1 bandPos_3 (nr__4) ! [orx] Origin of the source position (1) character*10 Type_2 (nr__4) ! Type or class of object real*8 dist (nr__4) ! (kpc) ? Distance real*8 F20cm_I (nr__4) ! (mJy) ? Radio integrated flux density in the * 20cm band real*8 F20cm_P (nr__4) ! (mJy) ? Radio peak flux density in the 20cm band integer*4 IncDate_4 (nr__4) ! ("YYMMDD") Date when source was included integer*4 UpdDate_4 (nr__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 (nr__5) ! 1RXS source name integer*4 Rank_3 (nr__5) ! Rank in correlation list for the source character*21 sourceID_3 (nr__5) ! Source identification (see also r_sourceID) real*8 RAdeg_5 (nr__5) ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_5 (nr__5) ! (deg) Declination (J2000) integer*4 Sep_3 (nr__5) ! (arcsec) Separation integer*4 PA_3 (nr__5) ! (deg) [0/360] Position angle character*10 r_sourceID_3(nr__5) ! Source catalogue (see file "refs.dat") character*1 bandPos_4 (nr__5) ! [oexr] Origin of the source position (1) character*10 Type_3 (nr__5) ! Type or class of object real*4 fxfopt_1 (nr__5) ! ? Ratio of X-ray to optical flux f_X / f_opt character*1 l_vmag_1 (nr__5) ! Limit flag on vmag real*4 vmag_1 (nr__5) ! (mag) ? Visual magnitude real*4 bmag (nr__5) ! (mag) ? Blue magnitude real*4 rmag (nr__5) ! (mag) ? Red magnitude real*4 b_r (nr__5) ! (mag) ? (blue-red) colour real*4 b_v (nr__5) ! (mag) ? (blue-visual) colour real*4 u_b (nr__5) ! (mag) ? (ultraviolet-blue) colour character*2 var (nr__5) ! Variability flag character*1 n_z (nr__5) ! [*>] Note on z real*4 z_1 (nr__5) ! ? Redshift (from PRI or SIMBAD) integer*4 Vr (nr__5) ! (km/s) ? Radial velocity (from SIMBAD only) real*4 dist_1 (nr__5) ! (kpc) ? Distance character*25 Com_2 (nr__5) ! Comments integer*4 IncDate_5 (nr__5) ! ("YYMMDD") Date when source was included integer*4 UpdDate_5 (nr__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 (nr__6) ! 1RXS source name integer*4 Rank_4 (nr__6) ! Rank in correlation list for the source character*21 sourceID_4 (nr__6) ! Source identification (see also r_sourceID) real*8 RAdeg_6 (nr__6) ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_6 (nr__6) ! (deg) Declination (J2000) integer*4 Sep_4 (nr__6) ! (arcsec) Separation integer*4 PA_4 (nr__6) ! (deg) [0/360] Position angle character*10 r_sourceID_4(nr__6) ! Source catalogue (see file "refs.dat") character*1 bandPos_5 (nr__6) ! [oexr] Origin of the source position (1) character*10 Type_4 (nr__6) ! Type or class of object real*4 fxfopt_2 (nr__6) ! ? Ratio of X-ray to optical flux f_X / f_opt character*1 l_vmag_2 (nr__6) ! Limit flag on vmag real*4 vmag_2 (nr__6) ! (mag) ? Visual magnitude real*4 bmag_1 (nr__6) ! (mag) ? Blue magnitude real*4 rmag_1 (nr__6) ! (mag) ? Red magnitude real*4 b_r_1 (nr__6) ! (mag) ? (blue-red) colour real*4 b_v_1 (nr__6) ! (mag) ? (blue-visual) colour real*4 u_b_1 (nr__6) ! (mag) ? (ultraviolet-blue) colour character*2 var_1 (nr__6) ! Variability flag character*1 n_z_1 (nr__6) ! [*>] Note on z real*4 z_2 (nr__6) ! ? Redshift (from PRI or SIMBAD) integer*4 Vr_1 (nr__6) ! (km/s) ? Radial velocity (from SIMBAD only) real*4 dist_2 (nr__6) ! (kpc) ? Distance character*25 Com_3 (nr__6) ! Comments integer*4 IncDate_6 (nr__6) ! ("YYMMDD") Date when source was included integer*4 UpdDate_6 (nr__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 (nr__7) ! 1RXS source name integer*4 Rank_5 (nr__7) ! Rank in correlation list for the source character*21 sourceID_5 (nr__7) ! Source identification (see also r_sourceID) real*8 RAdeg_7 (nr__7) ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_7 (nr__7) ! (deg) Declination (J2000) integer*4 Sep_5 (nr__7) ! (arcsec) Separation integer*4 PA_5 (nr__7) ! (deg) [0/360] Position angle character*10 r_sourceID_5(nr__7) ! Source catalogue (see file "refs.dat") character*1 bandPos_6 (nr__7) ! [oexr] Origin of the source position (1) character*10 Type_5 (nr__7) ! Type or class of object real*4 fxfopt_3 (nr__7) ! ? Ratio of X-ray to optical flux f_X / f_opt character*1 l_vmag_3 (nr__7) ! Limit flag on vmag real*4 vmag_3 (nr__7) ! (mag) ? Visual magnitude real*4 bmag_2 (nr__7) ! (mag) ? Blue magnitude real*4 rmag_2 (nr__7) ! (mag) ? Red magnitude real*4 b_r_2 (nr__7) ! (mag) ? (blue-red) colour real*4 b_v_2 (nr__7) ! (mag) ? (blue-visual) colour real*4 u_b_2 (nr__7) ! (mag) ? (ultraviolet-blue) colour character*2 var_2 (nr__7) ! Variability flag character*1 n_z_2 (nr__7) ! [*>] Note on z real*4 z_3 (nr__7) ! ? Redshift (from PRI or SIMBAD) integer*4 Vr_2 (nr__7) ! (km/s) ? Radial velocity (from SIMBAD only) real*4 dist_3 (nr__7) ! (kpc) ? Distance character*25 Com_4 (nr__7) ! Comments integer*4 IncDate_7 (nr__7) ! ("YYMMDD") Date when source was included integer*4 UpdDate_7 (nr__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 (nr__8) ! 1RXS source name integer*4 Rank_6 (nr__8) ! Rank in correlation list for the source character*21 sourceID_6 (nr__8) ! Source identification real*8 RAdeg_8 (nr__8) ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_8 (nr__8) ! (deg) Declination (J2000) integer*4 Sep_6 (nr__8) ! (arcsec) Separation integer*4 PA_6 (nr__8) ! (deg) [0/360] Position angle character*10 r_sourceID_6(nr__8) ! Source catalogue (see file "refs.dat") character*1 bandPos_7 (nr__8) ! [ex] Origin of the source position (1) character*10 Type_6 (nr__8) ! Type or class of object real*4 HR1_2 (nr__8) ! ? Hardness ratio 1 real*4 e_HR1_2 (nr__8) ! ? rms uncertainty on HR1 real*4 HR2_2 (nr__8) ! ? Hardness ratio 2 real*4 e_HR2_2 (nr__8) ! ? rms uncertainty on HR2 integer*4 Extent_2 (nr__8) ! ? Source extent integer*4 L_Extent_2 (nr__8) ! ? Likelihood of source extent integer*4 Ldetect_2 (nr__8) ! ? Likelihood of source detection algorithm integer*4 ExpTime_2 (nr__8) ! (s) Exposure time real*4 Count_2 (nr__8) ! Source countrate real*4 e_Count_2 (nr__8) ! rms uncertainty on Count real*4 roff (nr__8) ! (arcmin) Off-axis angle character*25 Com_5 (nr__8) ! Comments integer*4 IncDate_8 (nr__8) ! ("YYMMDD") Date when source was included integer*4 UpdDate_8 (nr__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 (nr__9) ! 1RXS source name integer*4 Rank_7 (nr__9) ! Rank in correlation list for the source character*21 sourceID_7 (nr__9) ! Source identification real*8 RAdeg_9 (nr__9) ! (deg) [0/360] Right ascension (J2000) real*8 DEdeg_9 (nr__9) ! (deg) Declination (J2000) integer*4 Sep_7 (nr__9) ! (arcsec) Separation integer*4 PA_7 (nr__9) ! (deg) [0/360] Position angle character*10 r_sourceID_7(nr__9) ! Source catalogue (see file "refs.dat") character*1 bandPos_8 (nr__9) ! [oAOR] Origin of the source position (1) character*10 Type_7 (nr__9) ! Type or class of object real*4 fxfopt_4 (nr__9) ! ? Ratio of X-ray to optical flux f_X / f_opt character*1 l_vmag_4 (nr__9) ! Limit flag on vmag real*4 vmag_4 (nr__9) ! (mag) ? Visual magnitude real*4 rmag_3 (nr__9) ! (mag) ? Red magnitude real*4 b_v_3 (nr__9) ! (mag) ? (blue-visual) colour real*4 u_b_3 (nr__9) ! (mag) ? (ultraviolet-blue) colour character*1 n_z_3 (nr__9) ! [*>]Note on z real*4 z_4 (nr__9) ! ? Redshift real*8 R_f6cm (nr__9) ! (mJy) ? R-f6cm in the 6cm band real*8 R_f11cm (nr__9) ! (mJy) ? R-f11cm in the 11cm band character*25 Com_6 (nr__9) ! Comments integer*4 IncDate_9 (nr__9) ! ("YYMMDD") Date when source was included integer*4 UpdDate_9 (nr__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 (nr__10) ! Name of source catalogue character*25 Aut (nr__10) ! Author names character*19 BibCode (nr__10) ! BibCode character*80 Com_7 (nr__10) ! 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(i__),n_1RXS(i__),RAdeg(i__),DEdeg(i__),PosErr(i__), + ScrFlags(i__),NewFlag(i__),Count(i__),e_Count(i__),bgCt(i__), + ExpTime(i__),HR1(i__),e_HR1(i__),HR2(i__),e_HR2(i__), + Extent(i__),L_Extent(i__),Ldetect(i__),ExtRad(i__), + PrioFlags(i__),PHA(i__),VigFactor(i__),IncDate(i__), + UpdDate(i__),Ncand(i__),SASS(i__),MASOL(i__) if(ar__(97:101) .EQ. '') HR1(i__) = rNULL__ if(ar__(103:106) .EQ. '') e_HR1(i__) = rNULL__ if(ar__(108:112) .EQ. '') HR2(i__) = rNULL__ if(ar__(114:117) .EQ. '') e_HR2(i__) = rNULL__ c ..............Just test output........... write(6,1) + v1RXS(i__),n_1RXS(i__),RAdeg(i__),DEdeg(i__),PosErr(i__), + ScrFlags(i__),NewFlag(i__),Count(i__),e_Count(i__),bgCt(i__), + ExpTime(i__),HR1(i__),e_HR1(i__),HR2(i__),e_HR2(i__), + Extent(i__),L_Extent(i__),Ldetect(i__),ExtRad(i__), + PrioFlags(i__),PHA(i__),VigFactor(i__),IncDate(i__), + UpdDate(i__),Ncand(i__),SASS(i__),MASOL(i__) 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(i__),RAdeg_1(i__),DEdeg_1(i__),PosErr_1(i__),Nid(i__), + bandPos(i__),gal_Nh(i__),GLON(i__),GLAT(i__),HR1_1(i__), + e_HR1_1(i__),HR2_1(i__),e_HR2_1(i__),Extent_1(i__), + L_Extent_1(i__),Ldetect_1(i__),ExpTime_1(i__),Count_1(i__), + e_Count_1(i__),Flux1(i__),Flux2(i__),begDate(i__), + begDate_f(i__),endDate(i__),endDate_f(i__),IncDate_1(i__), + UpdDate_1(i__) c ..............Just test output........... write(6,2) + v1RXS_1(i__),RAdeg_1(i__),DEdeg_1(i__),PosErr_1(i__),Nid(i__), + bandPos(i__),gal_Nh(i__),GLON(i__),GLAT(i__),HR1_1(i__), + e_HR1_1(i__),HR2_1(i__),e_HR2_1(i__),Extent_1(i__), + L_Extent_1(i__),Ldetect_1(i__),ExpTime_1(i__),Count_1(i__), + e_Count_1(i__),Flux1(i__),Flux2(i__),begDate(i__), + begDate_f(i__),endDate(i__),endDate_f(i__),IncDate_1(i__), + UpdDate_1(i__) 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(i__),Rank(i__),sourceID(i__),RAdeg_2(i__), + DEdeg_2(i__),Sep(i__),PA(i__),r_sourceID(i__),bandPos_1(i__), + Type(i__),F12um(i__),F25um(i__),F60um(i__),F100um(i__), + Com(i__),IncDate_2(i__),UpdDate_2(i__) c ..............Just test output........... write(6,3) + v1RXS_2(i__),Rank(i__),sourceID(i__),RAdeg_2(i__), + DEdeg_2(i__),Sep(i__),PA(i__),r_sourceID(i__),bandPos_1(i__), + Type(i__),F12um(i__),F25um(i__),F60um(i__),F100um(i__), + Com(i__),IncDate_2(i__),UpdDate_2(i__) 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(i__),Rank_1(i__),sourceID_1(i__),RAdeg_3(i__), + DEdeg_3(i__),Sep_1(i__),PA_1(i__),r_sourceID_1(i__), + bandPos_2(i__),Type_1(i__),fxfopt(i__),l_vmag(i__),vmag(i__), + n_vmag(i__),vmag2(i__),u_vmag2(i__),z(i__),l_NED_flux(i__), + NED_flux(i__),fl_band(i__),l_Size(i__),Size(i__),u_Size(i__), + Com_1(i__),IncDate_3(i__),UpdDate_3(i__) if(ar__3(101:105) .EQ. '') fxfopt(i__) = rNULL__ if(ar__3(108:113) .EQ. '') vmag(i__) = rNULL__ if(ar__3(115:116) .EQ. '') vmag2(i__) = iNULL__ if(ar__3(119:124) .EQ. '') z(i__) = rNULL__ if(ar__3(127:135) .EQ. '') NED_flux(i__) = rNULL__ if(ar__3(137:145) .EQ. '') fl_band(i__) = rNULL__ if(ar__3(148:154) .EQ. '') Size(i__) = rNULL__ c ..............Just test output........... write(6,4) + v1RXS_3(i__),Rank_1(i__),sourceID_1(i__),RAdeg_3(i__), + DEdeg_3(i__),Sep_1(i__),PA_1(i__),r_sourceID_1(i__), + bandPos_2(i__),Type_1(i__),fxfopt(i__),l_vmag(i__),vmag(i__), + n_vmag(i__),vmag2(i__),u_vmag2(i__),z(i__),l_NED_flux(i__), + NED_flux(i__),fl_band(i__),l_Size(i__),Size(i__),u_Size(i__), + Com_1(i__),IncDate_3(i__),UpdDate_3(i__) 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(i__),Rank_2(i__),sourceID_2(i__),RAdeg_4(i__), + DEdeg_4(i__),Sep_2(i__),PA_2(i__),r_sourceID_2(i__), + bandPos_3(i__),Type_2(i__),dist(i__),F20cm_I(i__), + F20cm_P(i__),IncDate_4(i__),UpdDate_4(i__) if(ar__4(100:106) .EQ. '') dist(i__) = rNULL__ if(ar__4(108:115) .EQ. '') F20cm_I(i__) = rNULL__ if(ar__4(117:125) .EQ. '') F20cm_P(i__) = rNULL__ c ..............Just test output........... write(6,5) + v1RXS_4(i__),Rank_2(i__),sourceID_2(i__),RAdeg_4(i__), + DEdeg_4(i__),Sep_2(i__),PA_2(i__),r_sourceID_2(i__), + bandPos_3(i__),Type_2(i__),dist(i__),F20cm_I(i__), + F20cm_P(i__),IncDate_4(i__),UpdDate_4(i__) 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(i__),Rank_3(i__),sourceID_3(i__),RAdeg_5(i__), + DEdeg_5(i__),Sep_3(i__),PA_3(i__),r_sourceID_3(i__), + bandPos_4(i__),Type_3(i__),fxfopt_1(i__),l_vmag_1(i__), + vmag_1(i__),bmag(i__),rmag(i__),b_r(i__),b_v(i__),u_b(i__), + var(i__),n_z(i__),z_1(i__),Vr(i__),dist_1(i__),Com_2(i__), + IncDate_5(i__),UpdDate_5(i__) if(ar__5(101:105) .EQ. '') fxfopt_1(i__) = rNULL__ if(ar__5(108:112) .EQ. '') vmag_1(i__) = rNULL__ if(ar__5(115:119) .EQ. '') bmag(i__) = rNULL__ if(ar__5(122:126) .EQ. '') rmag(i__) = rNULL__ if(ar__5(129:133) .EQ. '') b_r(i__) = rNULL__ if(ar__5(135:139) .EQ. '') b_v(i__) = rNULL__ if(ar__5(142:146) .EQ. '') u_b(i__) = rNULL__ if(ar__5(154:159) .EQ. '') z_1(i__) = rNULL__ if(ar__5(161:165) .EQ. '') Vr(i__) = iNULL__ if(ar__5(167:174) .EQ. '') dist_1(i__) = rNULL__ c ..............Just test output........... write(6,6) + v1RXS_5(i__),Rank_3(i__),sourceID_3(i__),RAdeg_5(i__), + DEdeg_5(i__),Sep_3(i__),PA_3(i__),r_sourceID_3(i__), + bandPos_4(i__),Type_3(i__),fxfopt_1(i__),l_vmag_1(i__), + vmag_1(i__),bmag(i__),rmag(i__),b_r(i__),b_v(i__),u_b(i__), + var(i__),n_z(i__),z_1(i__),Vr(i__),dist_1(i__),Com_2(i__), + IncDate_5(i__),UpdDate_5(i__) 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(i__),Rank_4(i__),sourceID_4(i__),RAdeg_6(i__), + DEdeg_6(i__),Sep_4(i__),PA_4(i__),r_sourceID_4(i__), + bandPos_5(i__),Type_4(i__),fxfopt_2(i__),l_vmag_2(i__), + vmag_2(i__),bmag_1(i__),rmag_1(i__),b_r_1(i__),b_v_1(i__), + u_b_1(i__),var_1(i__),n_z_1(i__),z_2(i__),Vr_1(i__), + dist_2(i__),Com_3(i__),IncDate_6(i__),UpdDate_6(i__) if(ar__6(101:105) .EQ. '') fxfopt_2(i__) = rNULL__ if(ar__6(108:112) .EQ. '') vmag_2(i__) = rNULL__ if(ar__6(115:119) .EQ. '') bmag_1(i__) = rNULL__ if(ar__6(122:126) .EQ. '') rmag_1(i__) = rNULL__ if(ar__6(129:133) .EQ. '') b_r_1(i__) = rNULL__ if(ar__6(135:139) .EQ. '') b_v_1(i__) = rNULL__ if(ar__6(142:146) .EQ. '') u_b_1(i__) = rNULL__ if(ar__6(154:159) .EQ. '') z_2(i__) = rNULL__ if(ar__6(161:165) .EQ. '') Vr_1(i__) = iNULL__ if(ar__6(167:174) .EQ. '') dist_2(i__) = rNULL__ c ..............Just test output........... write(6,7) + v1RXS_6(i__),Rank_4(i__),sourceID_4(i__),RAdeg_6(i__), + DEdeg_6(i__),Sep_4(i__),PA_4(i__),r_sourceID_4(i__), + bandPos_5(i__),Type_4(i__),fxfopt_2(i__),l_vmag_2(i__), + vmag_2(i__),bmag_1(i__),rmag_1(i__),b_r_1(i__),b_v_1(i__), + u_b_1(i__),var_1(i__),n_z_1(i__),z_2(i__),Vr_1(i__), + dist_2(i__),Com_3(i__),IncDate_6(i__),UpdDate_6(i__) 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(i__),Rank_5(i__),sourceID_5(i__),RAdeg_7(i__), + DEdeg_7(i__),Sep_5(i__),PA_5(i__),r_sourceID_5(i__), + bandPos_6(i__),Type_5(i__),fxfopt_3(i__),l_vmag_3(i__), + vmag_3(i__),bmag_2(i__),rmag_2(i__),b_r_2(i__),b_v_2(i__), + u_b_2(i__),var_2(i__),n_z_2(i__),z_3(i__),Vr_2(i__), + dist_3(i__),Com_4(i__),IncDate_7(i__),UpdDate_7(i__) if(ar__7(101:105) .EQ. '') fxfopt_3(i__) = rNULL__ if(ar__7(108:112) .EQ. '') vmag_3(i__) = rNULL__ if(ar__7(115:119) .EQ. '') bmag_2(i__) = rNULL__ if(ar__7(122:126) .EQ. '') rmag_2(i__) = rNULL__ if(ar__7(129:133) .EQ. '') b_r_2(i__) = rNULL__ if(ar__7(135:139) .EQ. '') b_v_2(i__) = rNULL__ if(ar__7(142:146) .EQ. '') u_b_2(i__) = rNULL__ if(ar__7(154:159) .EQ. '') z_3(i__) = rNULL__ if(ar__7(161:165) .EQ. '') Vr_2(i__) = iNULL__ if(ar__7(167:174) .EQ. '') dist_3(i__) = rNULL__ c ..............Just test output........... write(6,8) + v1RXS_7(i__),Rank_5(i__),sourceID_5(i__),RAdeg_7(i__), + DEdeg_7(i__),Sep_5(i__),PA_5(i__),r_sourceID_5(i__), + bandPos_6(i__),Type_5(i__),fxfopt_3(i__),l_vmag_3(i__), + vmag_3(i__),bmag_2(i__),rmag_2(i__),b_r_2(i__),b_v_2(i__), + u_b_2(i__),var_2(i__),n_z_2(i__),z_3(i__),Vr_2(i__), + dist_3(i__),Com_4(i__),IncDate_7(i__),UpdDate_7(i__) 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(i__),Rank_6(i__),sourceID_6(i__),RAdeg_8(i__), + DEdeg_8(i__),Sep_6(i__),PA_6(i__),r_sourceID_6(i__), + bandPos_7(i__),Type_6(i__),HR1_2(i__),e_HR1_2(i__),HR2_2(i__), + e_HR2_2(i__),Extent_2(i__),L_Extent_2(i__),Ldetect_2(i__), + ExpTime_2(i__),Count_2(i__),e_Count_2(i__),roff(i__), + Com_5(i__),IncDate_8(i__),UpdDate_8(i__) if(ar__8(100:104) .EQ. '') HR1_2(i__) = rNULL__ if(ar__8(107:110) .EQ. '') e_HR1_2(i__) = rNULL__ if(ar__8(112:116) .EQ. '') HR2_2(i__) = rNULL__ if(ar__8(119:122) .EQ. '') e_HR2_2(i__) = rNULL__ if(ar__8(124:126) .EQ. '') Extent_2(i__) = iNULL__ if(ar__8(128:130) .EQ. '') L_Extent_2(i__) = iNULL__ if(ar__8(132:134) .EQ. '') Ldetect_2(i__) = iNULL__ c ..............Just test output........... write(6,9) + v1RXS_8(i__),Rank_6(i__),sourceID_6(i__),RAdeg_8(i__), + DEdeg_8(i__),Sep_6(i__),PA_6(i__),r_sourceID_6(i__), + bandPos_7(i__),Type_6(i__),HR1_2(i__),e_HR1_2(i__),HR2_2(i__), + e_HR2_2(i__),Extent_2(i__),L_Extent_2(i__),Ldetect_2(i__), + ExpTime_2(i__),Count_2(i__),e_Count_2(i__),roff(i__), + Com_5(i__),IncDate_8(i__),UpdDate_8(i__) 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(i__),Rank_7(i__),sourceID_7(i__),RAdeg_9(i__), + DEdeg_9(i__),Sep_7(i__),PA_7(i__),r_sourceID_7(i__), + bandPos_8(i__),Type_7(i__),fxfopt_4(i__),l_vmag_4(i__), + vmag_4(i__),rmag_3(i__),b_v_3(i__),u_b_3(i__),n_z_3(i__), + z_4(i__),R_f6cm(i__),R_f11cm(i__),Com_6(i__),IncDate_9(i__), + UpdDate_9(i__) if(ar__9(101:105) .EQ. '') fxfopt_4(i__) = rNULL__ if(ar__9(108:112) .EQ. '') vmag_4(i__) = rNULL__ if(ar__9(114:118) .EQ. '') rmag_3(i__) = rNULL__ if(ar__9(120:124) .EQ. '') b_v_3(i__) = rNULL__ if(ar__9(127:131) .EQ. '') u_b_3(i__) = rNULL__ if(ar__9(134:138) .EQ. '') z_4(i__) = rNULL__ if(ar__9(141:148) .EQ. '') R_f6cm(i__) = rNULL__ if(ar__9(151:158) .EQ. '') R_f11cm(i__) = rNULL__ c ..............Just test output........... write(6,10) + v1RXS_9(i__),Rank_7(i__),sourceID_7(i__),RAdeg_9(i__), + DEdeg_9(i__),Sep_7(i__),PA_7(i__),r_sourceID_7(i__), + bandPos_8(i__),Type_7(i__),fxfopt_4(i__),l_vmag_4(i__), + vmag_4(i__),rmag_3(i__),b_v_3(i__),u_b_3(i__),n_z_3(i__), + z_4(i__),R_f6cm(i__),R_f11cm(i__),Com_6(i__),IncDate_9(i__), + UpdDate_9(i__) 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(i__),Aut(i__),BibCode(i__),Com_7(i__) c ..............Just test output........... write(6,11)catal_id(i__),Aut(i__),BibCode(i__),Com_7(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end