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