FORTRAN Generation
(/./ftp/cats/J/AJ/153/220)

Conversion of standardized ReadMe file for file /./ftp/cats/J/AJ/153/220 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-29
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/AJ/153/220            NORAS II. I. First results            (Bohringer+, 2017)
*================================================================================
*The extended northern ROSAT galaxy cluster survey (NORAS II).
*I. Survey construction and first results.
*    Bohringer H., Chon G., Retzlaff J., Trumper J., Meisenheimer K.,
*    Schartel N.
*   <Astron. J., 153, 220-220 (2017)>
*   =2017AJ....153..220B    (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table2.dat'	! *Sensitivity map of the NORAS II survey

      integer*4 nr__
      parameter (nr__=21666)	! Number of records
      character*52 ar__   	! Full-size record

C  J2000 position composed of: RAdeg DEdeg (Epoch=J2000.)
      real*8        RAdeg      (nr__) ! (deg) Right Ascension in decimal degrees (J2000) (1)
      real*8        DEdeg      (nr__) ! (deg) Declination in decimal degrees (J2000) (1)
      real*8        Sense      (nr__) ! ? Sensitivity (2)
      real*8        Size       (nr__) ! (deg2) Size of the sky pixel
      real*8        GLON       (nr__) ! (deg) Galactic longitude (l_II_) (1)
      real*8        GLAT       (nr__) ! (deg) Galactic latitude (b_II_) (1)
*Note (1): Equatorial and galactic coordinates of the sky pixel for the epoch
*     J2000.
*Note (2): The number of photons that can be detected in the ROSAT All-Sky Survey
*     (RASS) at that sky pixel for a source at the nominal flux limit,
*     F_X_=1.8*10^-12^erg/s/cm^2^. A blank indicates an infinite number.

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table3.dat'	! *Effective sky coverage of NORAS II

      integer*4 nr__1
      parameter (nr__1=21650)	! Number of records
      character*16 ar__1  	! Full-size record

      real*8        Flux       (nr__1) ! (fW/m2) Flux limit for 20 source photon detection (1)
      real*8        Counts     (nr__1) ! Fraction of sky survey area of NORAS II
*                                   (13519 deg^2^) (2)
*Note (1): In units of 10^-12^erg/s/cm^2^ in the 0.1-2.4keV band for a detection
*     of at least 20 source photons.
*Note (2): Covered up to this flux limit. The NORAS II survey covers the sky
*     region north of the equator outside the band of the Milky Way
*     (|b_II_|>=20{deg}). We also excise a region around the nearby Virgo cluster
*     of galaxies that extends over several degrees on the sky, where the
*     detection of background clusters is hampered by bright X-ray emission. This
*     region is bounded in right ascension by R.A.=185{deg}-191.25{deg} and in
*     declination by decl.=6{deg}-15{deg} (an area of ~53deg^2^). With this
*     excision, the survey area covers 4.18 steradian (13519deg^2^, a fraction of
*     32.7% of the sky)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table4.dat'	! *Survey mask for NORAS II

      integer*4 nr__2
      parameter (nr__2=21666)	! Number of records
      character*1632 ar__2  	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      real*8        RAdeg_1    (nr__2) ! (deg) Right Ascension in decimal degrees (J2000)
      real*8        DEdeg_1    (nr__2) ! (deg) Declination in decimal degrees (J2000)
      real*8        L0_005     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.005 (1)
      real*8        L0_010     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.010 (1)
      real*8        L0_015     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.015 (1)
      real*8        L0_020     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.020 (1)
      real*8        L0_025     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.025 (1)
      real*8        L0_030     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.030 (1)
      real*8        L0_035     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.035 (1)
      real*8        L0_040     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.040 (1)
      real*8        L0_045     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.045 (1)
      real*8        L0_050     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.050 (1)
      real*8        L0_055     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.055 (1)
      real*8        L0_060     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.060 (1)
      real*8        L0_065     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.065 (1)
      real*8        L0_070     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.070 (1)
      real*8        L0_075     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.075 (1)
      real*8        L0_080     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.080 (1)
      real*8        L0_085     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.085 (1)
      real*8        L0_090     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.090 (1)
      real*8        L0_095     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.095 (1)
      real*8        L0_100     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.100 (1)
      real*8        L0_105     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.105 (1)
      real*8        L0_110     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.110 (1)
      real*8        L0_115     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.115 (1)
      real*8        L0_120     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.120 (1)
      real*8        L0_125     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.125 (1)
      real*8        L0_130     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.130 (1)
      real*8        L0_135     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.135 (1)
      real*8        L0_140     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.140 (1)
      real*8        L0_145     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.145 (1)
      real*8        L0_150     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.150 (1)
      real*8        L0_155     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.155 (1)
      real*8        L0_160     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.160 (1)
      real*8        L0_165     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.165 (1)
      real*8        L0_170     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.170 (1)
      real*8        L0_175     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.175 (1)
      real*8        L0_180     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.180 (1)
      real*8        L0_185     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.185 (1)
      real*8        L0_190     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.190 (1)
      real*8        L0_195     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.195 (1)
      real*8        L0_200     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.200 (1)
      real*8        L0_205     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.205 (1)
      real*8        L0_210     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.210 (1)
      real*8        L0_215     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.215 (1)
      real*8        L0_220     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.220 (1)
      real*8        L0_225     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.225 (1)
      real*8        L0_230     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.230 (1)
      real*8        L0_235     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.235 (1)
      real*8        L0_240     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.240 (1)
      real*8        L0_245     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.245 (1)
      real*8        L0_250     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.250 (1)
      real*8        L0_255     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.255 (1)
      real*8        L0_260     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.260 (1)
      real*8        L0_265     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.265 (1)
      real*8        L0_270     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.270 (1)
      real*8        L0_275     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.275 (1)
      real*8        L0_280     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.280 (1)
      real*8        L0_285     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.285 (1)
      real*8        L0_290     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.290 (1)
      real*8        L0_295     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.295 (1)
      real*8        L0_300     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.300 (1)
      real*8        L0_305     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.305 (1)
      real*8        L0_310     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.310 (1)
      real*8        L0_315     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.315 (1)
      real*8        L0_320     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.320 (1)
      real*8        L0_325     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.325 (1)
      real*8        L0_330     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.330 (1)
      real*8        L0_335     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.335 (1)
      real*8        L0_340     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.340 (1)
      real*8        L0_345     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.345 (1)
      real*8        L0_350     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.350 (1)
      real*8        L0_355     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.355 (1)
      real*8        L0_360     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.360 (1)
      real*8        L0_365     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.365 (1)
      real*8        L0_370     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.370 (1)
      real*8        L0_375     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.375 (1)
      real*8        L0_380     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.380 (1)
      real*8        L0_385     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.385 (1)
      real*8        L0_390     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.390 (1)
      real*8        L0_395     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.395 (1)
      real*8        L0_400     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.400 (1)
      real*8        L0_405     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.405 (1)
      real*8        L0_410     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.410 (1)
      real*8        L0_415     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.415 (1)
      real*8        L0_420     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.420 (1)
      real*8        L0_425     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.425 (1)
      real*8        L0_430     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.430 (1)
      real*8        L0_435     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.435 (1)
      real*8        L0_440     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.440 (1)
      real*8        L0_445     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.445 (1)
      real*8        L0_450     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.450 (1)
      real*8        L0_455     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.455 (1)
      real*8        L0_460     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.460 (1)
      real*8        L0_465     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.465 (1)
      real*8        L0_470     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.470 (1)
      real*8        L0_475     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.475 (1)
      real*8        L0_480     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.480 (1)
      real*8        L0_485     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.485 (1)
      real*8        L0_490     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.490 (1)
      real*8        L0_495     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.495 (1)
      real*8        L0_500     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.500 (1)
      real*8        L0_505     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.505 (1)
      real*8        L0_510     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.510 (1)
      real*8        L0_515     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.515 (1)
      real*8        L0_520     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.520 (1)
      real*8        L0_525     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.525 (1)
      real*8        L0_530     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.530 (1)
      real*8        L0_535     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.535 (1)
      real*8        L0_540     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.540 (1)
      real*8        L0_545     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.545 (1)
      real*8        L0_550     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.550 (1)
      real*8        L0_555     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.555 (1)
      real*8        L0_560     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.560 (1)
      real*8        L0_565     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.565 (1)
      real*8        L0_570     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.570 (1)
      real*8        L0_575     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.575 (1)
      real*8        L0_580     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.580 (1)
      real*8        L0_585     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.585 (1)
      real*8        L0_590     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.590 (1)
      real*8        L0_595     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.595 (1)
      real*8        L0_600     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.600 (1)
      real*8        L0_605     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.605 (1)
      real*8        L0_610     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.610 (1)
      real*8        L0_615     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.615 (1)
      real*8        L0_620     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.620 (1)
      real*8        L0_625     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.625 (1)
      real*8        L0_630     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.630 (1)
      real*8        L0_635     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.635 (1)
      real*8        L0_640     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.640 (1)
      real*8        L0_645     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.645 (1)
      real*8        L0_650     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.650 (1)
      real*8        L0_655     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.655 (1)
      real*8        L0_660     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.660 (1)
      real*8        L0_665     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.665 (1)
      real*8        L0_670     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.670 (1)
      real*8        L0_675     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.675 (1)
      real*8        L0_680     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.680 (1)
      real*8        L0_685     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.685 (1)
      real*8        L0_690     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.690 (1)
      real*8        L0_695     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.695 (1)
      real*8        L0_700     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.700 (1)
      real*8        L0_705     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.705 (1)
      real*8        L0_710     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.710 (1)
      real*8        L0_715     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.715 (1)
      real*8        L0_720     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.720 (1)
      real*8        L0_725     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.725 (1)
      real*8        L0_730     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.730 (1)
      real*8        L0_735     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.735 (1)
      real*8        L0_740     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.740 (1)
      real*8        L0_745     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.745 (1)
      real*8        L0_750     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.750 (1)
      real*8        L0_755     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.755 (1)
      real*8        L0_760     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.760 (1)
      real*8        L0_765     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.765 (1)
      real*8        L0_770     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.770 (1)
      real*8        L0_775     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.775 (1)
      real*8        L0_780     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.780 (1)
      real*8        L0_785     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.785 (1)
      real*8        L0_790     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.790 (1)
      real*8        L0_795     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.795 (1)
      real*8        L0_800     (nr__2) ! (fW/m2) Minimum X-ray luminosity at z=0.800 (1)
*Note (1): To be detected with 20 source photons. In the 0.1-2.4keV band and in
*     units of 10^-12^erg/s/cm^2^.

C=============================================================================

C  Loading file 'table2.dat'	! *Sensitivity map of the NORAS II survey

C  Format for file interpretation

    1 format(F8.4,1X,F7.4,1X,F8.3,1X,F8.6,1X,F8.4,1X,F8.4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,21666
        read(1,'(A52)')ar__
        read(ar__,1)
     +  RAdeg(i__),DEdeg(i__),Sense(i__),Size(i__),GLON(i__),GLAT(i__)
        if(ar__(18:25) .EQ. '') Sense(i__) = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  RAdeg(i__),DEdeg(i__),Sense(i__),Size(i__),GLON(i__),GLAT(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table3.dat'	! *Effective sky coverage of NORAS II

C  Format for file interpretation

    2 format(F7.3,1X,F8.6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,21650
        read(1,'(A16)')ar__1
        read(ar__1,2)Flux(i__),Counts(i__)
c    ..............Just test output...........
        write(6,2)Flux(i__),Counts(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table4.dat'	! *Survey mask for NORAS II

C  Format for file interpretation

    3 format(
     +  F8.4,1X,F7.4,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,
     +  1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,
     +  F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,
     +  1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,
     +  F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,1X,F8.5,
     +  1X,F8.5,1X,F8.5,1X,F8.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,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,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,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,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,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,
     +  F9.5,1X,F9.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,
     +  F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,
     +  1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,
     +  F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,
     +  1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,
     +  F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,
     +  1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,
     +  F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5,
     +  1X,F10.5,1X,F10.5,1X,F10.5,1X,F10.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,21666
        read(1,'(A1632)')ar__2
        read(ar__2,3)
     +  RAdeg_1(i__),DEdeg_1(i__),L0_005(i__),L0_010(i__),L0_015(i__),
     +  L0_020(i__),L0_025(i__),L0_030(i__),L0_035(i__),L0_040(i__),
     +  L0_045(i__),L0_050(i__),L0_055(i__),L0_060(i__),L0_065(i__),
     +  L0_070(i__),L0_075(i__),L0_080(i__),L0_085(i__),L0_090(i__),
     +  L0_095(i__),L0_100(i__),L0_105(i__),L0_110(i__),L0_115(i__),
     +  L0_120(i__),L0_125(i__),L0_130(i__),L0_135(i__),L0_140(i__),
     +  L0_145(i__),L0_150(i__),L0_155(i__),L0_160(i__),L0_165(i__),
     +  L0_170(i__),L0_175(i__),L0_180(i__),L0_185(i__),L0_190(i__),
     +  L0_195(i__),L0_200(i__),L0_205(i__),L0_210(i__),L0_215(i__),
     +  L0_220(i__),L0_225(i__),L0_230(i__),L0_235(i__),L0_240(i__),
     +  L0_245(i__),L0_250(i__),L0_255(i__),L0_260(i__),L0_265(i__),
     +  L0_270(i__),L0_275(i__),L0_280(i__),L0_285(i__),L0_290(i__),
     +  L0_295(i__),L0_300(i__),L0_305(i__),L0_310(i__),L0_315(i__),
     +  L0_320(i__),L0_325(i__),L0_330(i__),L0_335(i__),L0_340(i__),
     +  L0_345(i__),L0_350(i__),L0_355(i__),L0_360(i__),L0_365(i__),
     +  L0_370(i__),L0_375(i__),L0_380(i__),L0_385(i__),L0_390(i__),
     +  L0_395(i__),L0_400(i__),L0_405(i__),L0_410(i__),L0_415(i__),
     +  L0_420(i__),L0_425(i__),L0_430(i__),L0_435(i__),L0_440(i__),
     +  L0_445(i__),L0_450(i__),L0_455(i__),L0_460(i__),L0_465(i__),
     +  L0_470(i__),L0_475(i__),L0_480(i__),L0_485(i__),L0_490(i__),
     +  L0_495(i__),L0_500(i__),L0_505(i__),L0_510(i__),L0_515(i__),
     +  L0_520(i__),L0_525(i__),L0_530(i__),L0_535(i__),L0_540(i__),
     +  L0_545(i__),L0_550(i__),L0_555(i__),L0_560(i__),L0_565(i__),
     +  L0_570(i__),L0_575(i__),L0_580(i__),L0_585(i__),L0_590(i__),
     +  L0_595(i__),L0_600(i__),L0_605(i__),L0_610(i__),L0_615(i__),
     +  L0_620(i__),L0_625(i__),L0_630(i__),L0_635(i__),L0_640(i__),
     +  L0_645(i__),L0_650(i__),L0_655(i__),L0_660(i__),L0_665(i__),
     +  L0_670(i__),L0_675(i__),L0_680(i__),L0_685(i__),L0_690(i__),
     +  L0_695(i__),L0_700(i__),L0_705(i__),L0_710(i__),L0_715(i__),
     +  L0_720(i__),L0_725(i__),L0_730(i__),L0_735(i__),L0_740(i__),
     +  L0_745(i__),L0_750(i__),L0_755(i__),L0_760(i__),L0_765(i__),
     +  L0_770(i__),L0_775(i__),L0_780(i__),L0_785(i__),L0_790(i__),
     +  L0_795(i__),L0_800(i__)
c    ..............Just test output...........
        write(6,3)
     +  RAdeg_1(i__),DEdeg_1(i__),L0_005(i__),L0_010(i__),L0_015(i__),
     +  L0_020(i__),L0_025(i__),L0_030(i__),L0_035(i__),L0_040(i__),
     +  L0_045(i__),L0_050(i__),L0_055(i__),L0_060(i__),L0_065(i__),
     +  L0_070(i__),L0_075(i__),L0_080(i__),L0_085(i__),L0_090(i__),
     +  L0_095(i__),L0_100(i__),L0_105(i__),L0_110(i__),L0_115(i__),
     +  L0_120(i__),L0_125(i__),L0_130(i__),L0_135(i__),L0_140(i__),
     +  L0_145(i__),L0_150(i__),L0_155(i__),L0_160(i__),L0_165(i__),
     +  L0_170(i__),L0_175(i__),L0_180(i__),L0_185(i__),L0_190(i__),
     +  L0_195(i__),L0_200(i__),L0_205(i__),L0_210(i__),L0_215(i__),
     +  L0_220(i__),L0_225(i__),L0_230(i__),L0_235(i__),L0_240(i__),
     +  L0_245(i__),L0_250(i__),L0_255(i__),L0_260(i__),L0_265(i__),
     +  L0_270(i__),L0_275(i__),L0_280(i__),L0_285(i__),L0_290(i__),
     +  L0_295(i__),L0_300(i__),L0_305(i__),L0_310(i__),L0_315(i__),
     +  L0_320(i__),L0_325(i__),L0_330(i__),L0_335(i__),L0_340(i__),
     +  L0_345(i__),L0_350(i__),L0_355(i__),L0_360(i__),L0_365(i__),
     +  L0_370(i__),L0_375(i__),L0_380(i__),L0_385(i__),L0_390(i__),
     +  L0_395(i__),L0_400(i__),L0_405(i__),L0_410(i__),L0_415(i__),
     +  L0_420(i__),L0_425(i__),L0_430(i__),L0_435(i__),L0_440(i__),
     +  L0_445(i__),L0_450(i__),L0_455(i__),L0_460(i__),L0_465(i__),
     +  L0_470(i__),L0_475(i__),L0_480(i__),L0_485(i__),L0_490(i__),
     +  L0_495(i__),L0_500(i__),L0_505(i__),L0_510(i__),L0_515(i__),
     +  L0_520(i__),L0_525(i__),L0_530(i__),L0_535(i__),L0_540(i__),
     +  L0_545(i__),L0_550(i__),L0_555(i__),L0_560(i__),L0_565(i__),
     +  L0_570(i__),L0_575(i__),L0_580(i__),L0_585(i__),L0_590(i__),
     +  L0_595(i__),L0_600(i__),L0_605(i__),L0_610(i__),L0_615(i__),
     +  L0_620(i__),L0_625(i__),L0_630(i__),L0_635(i__),L0_640(i__),
     +  L0_645(i__),L0_650(i__),L0_655(i__),L0_660(i__),L0_665(i__),
     +  L0_670(i__),L0_675(i__),L0_680(i__),L0_685(i__),L0_690(i__),
     +  L0_695(i__),L0_700(i__),L0_705(i__),L0_710(i__),L0_715(i__),
     +  L0_720(i__),L0_725(i__),L0_730(i__),L0_735(i__),L0_740(i__),
     +  L0_745(i__),L0_750(i__),L0_755(i__),L0_760(i__),L0_765(i__),
     +  L0_770(i__),L0_775(i__),L0_780(i__),L0_785(i__),L0_790(i__),
     +  L0_795(i__),L0_800(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end