FORTRAN Generation
(/./ftp/cats/IX/19)

Conversion of standardized ReadMe file for file /./ftp/cats/IX/19 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/19     X-ray lightcurves of bright AGNs from Ginga    (Hayashida+ 1998)
*================================================================================
*Central Black Hole Masses in AGNs Inferred from X-ray Variability
*    Hayashida K., Miyamoto S., Kitamoto S., Negoro H., Inoue H.
*   <Astrophys. Journ., 500, 642 (1998)>
*   =1998ApJ...500..642H
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'n4051_32.dat'	! Lightcurve of NGC4051 with 32sec bin

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

      real*8        MJD        (nr__) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD      (nr__) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate      (nr__) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror     (nr__) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'n4051_57.dat'	! Lightcurve of NGC4051 with 5760sec bin

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

      real*8        MJD_1      (nr__1) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_1    (nr__1) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_1    (nr__1) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_1   (nr__1) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'n4151_32.dat'	! Lightcurve of NGC4151 with 32sec bin

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

      real*8        MJD_2      (nr__2) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_2    (nr__2) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_2    (nr__2) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_2   (nr__2) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'n4151_57.dat'	! Lightcurve of NGC4151 with 5760sec bin

      integer*4 nr__3
      parameter (nr__3=115)	! Number of records
      character*42 ar__3  	! Full-size record

      real*8        MJD_3      (nr__3) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_3    (nr__3) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_3    (nr__3) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_3   (nr__3) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for '3c273_32.dat'	! Lightcurve of 3C273 with 32sec bin

      integer*4 nr__4
      parameter (nr__4=2452)	! Number of records
      character*42 ar__4  	! Full-size record

      real*8        MJD_4      (nr__4) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_4    (nr__4) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_4    (nr__4) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_4   (nr__4) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for '3c273_57.dat'	! Lightcurve of 3C273 with 5760sec bin

      integer*4 nr__5
      parameter (nr__5=67)	! Number of records
      character*42 ar__5  	! Full-size record

      real*8        MJD_5      (nr__5) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_5    (nr__5) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_5    (nr__5) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_5   (nr__5) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'mc630_32.dat'	! Lightcurve of MCG-6-30-15 with 32sec bin

      integer*4 nr__6
      parameter (nr__6=2184)	! Number of records
      character*42 ar__6  	! Full-size record

      real*8        MJD_6      (nr__6) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_6    (nr__6) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_6    (nr__6) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_6   (nr__6) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'mc630_57.dat'	! Lightcurve of MCG-6-30-15; 5760sec bin

      integer*4 nr__7
      parameter (nr__7=59)	! Number of records
      character*42 ar__7  	! Full-size record

      real*8        MJD_7      (nr__7) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_7    (nr__7) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_7    (nr__7) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_7   (nr__7) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'n5506_32.dat'	! Lightcurve of NGC5506 with 32sec bin

      integer*4 nr__8
      parameter (nr__8=1985)	! Number of records
      character*42 ar__8  	! Full-size record

      real*8        MJD_8      (nr__8) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_8    (nr__8) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_8    (nr__8) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_8   (nr__8) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'n5506_57.dat'	! Lightcurve of NGC5506 with 5760sec bin

      integer*4 nr__9
      parameter (nr__9=45)	! Number of records
      character*42 ar__9  	! Full-size record

      real*8        MJD_9      (nr__9) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_9    (nr__9) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_9    (nr__9) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_9   (nr__9) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'n5548_32.dat'	! Lightcurve of NGC5548 with 32sec bin

      integer*4 nr__10
      parameter (nr__10=6772)	! Number of records
      character*42 ar__10 	! Full-size record

      real*8        MJD_10     (nr__10) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_10   (nr__10) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_10   (nr__10) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_10  (nr__10) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'n5548_57.dat'	! Lightcurve of NGC5548 with 5760sec bin

      integer*4 nr__11
      parameter (nr__11=152)	! Number of records
      character*42 ar__11 	! Full-size record

      real*8        MJD_11     (nr__11) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_11   (nr__11) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_11   (nr__11) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_11  (nr__11) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'es103_32.dat'	! Lightcurve of ESO103-G035 with 32sec bin

      integer*4 nr__12
      parameter (nr__12=1266)	! Number of records
      character*42 ar__12 	! Full-size record

      real*8        MJD_12     (nr__12) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_12   (nr__12) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_12   (nr__12) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_12  (nr__12) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'es103_57.dat'	! Lightcurve of ESO103-G035; 5760sec bin

      integer*4 nr__13
      parameter (nr__13=30)	! Number of records
      character*42 ar__13 	! Full-size record

      real*8        MJD_13     (nr__13) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_13   (nr__13) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_13   (nr__13) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_13  (nr__13) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'p2155_32.dat'	! Lightcurve of PKS2155-304 with 32sec bin

      integer*4 nr__14
      parameter (nr__14=2372)	! Number of records
      character*42 ar__14 	! Full-size record

      real*8        MJD_14     (nr__14) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_14   (nr__14) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_14   (nr__14) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_14  (nr__14) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Declarations for 'p2155_57.dat'	! Lightcurve of PKS2155-304; 5760sec bin

      integer*4 nr__15
      parameter (nr__15=66)	! Number of records
      character*42 ar__15 	! Full-size record

      real*8        MJD_15     (nr__15) ! (d) Time (modified Julian day MJD=JD-2400000.5)
      real*8        e_MJD_15   (nr__15) ! (d) Error for Time. (= Half the time bin width).
      real*8        Crate_15   (nr__15) ! (ct/s) Count rate (c/sec/8counters).
      real*8        Cerror_15  (nr__15) ! (ct/s) Count rate error (c/sec/8counters).

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

C  Loading file 'n4051_32.dat'	! Lightcurve of NGC4051 with 32sec bin

C  Format for file interpretation

    1 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n4051_32.dat')
      write(6,*) '....Loading file: n4051_32.dat'
      do i__=1,2209
        read(1,'(A42)')ar__
        read(ar__,1)MJD(i__),e_MJD(i__),Crate(i__),Cerror(i__)
c    ..............Just test output...........
        write(6,1)MJD(i__),e_MJD(i__),Crate(i__),Cerror(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'n4051_57.dat'	! Lightcurve of NGC4051 with 5760sec bin

C  Format for file interpretation

    2 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n4051_57.dat')
      write(6,*) '....Loading file: n4051_57.dat'
      do i__=1,65
        read(1,'(A42)')ar__1
        read(ar__1,2)
     +  MJD_1(i__),e_MJD_1(i__),Crate_1(i__),Cerror_1(i__)
c    ..............Just test output...........
        write(6,2)
     +  MJD_1(i__),e_MJD_1(i__),Crate_1(i__),Cerror_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'n4151_32.dat'	! Lightcurve of NGC4151 with 32sec bin

C  Format for file interpretation

    3 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n4151_32.dat')
      write(6,*) '....Loading file: n4151_32.dat'
      do i__=1,5184
        read(1,'(A42)')ar__2
        read(ar__2,3)
     +  MJD_2(i__),e_MJD_2(i__),Crate_2(i__),Cerror_2(i__)
c    ..............Just test output...........
        write(6,3)
     +  MJD_2(i__),e_MJD_2(i__),Crate_2(i__),Cerror_2(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'n4151_57.dat'	! Lightcurve of NGC4151 with 5760sec bin

C  Format for file interpretation

    4 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n4151_57.dat')
      write(6,*) '....Loading file: n4151_57.dat'
      do i__=1,115
        read(1,'(A42)')ar__3
        read(ar__3,4)
     +  MJD_3(i__),e_MJD_3(i__),Crate_3(i__),Cerror_3(i__)
c    ..............Just test output...........
        write(6,4)
     +  MJD_3(i__),e_MJD_3(i__),Crate_3(i__),Cerror_3(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file '3c273_32.dat'	! Lightcurve of 3C273 with 32sec bin

C  Format for file interpretation

    5 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'3c273_32.dat')
      write(6,*) '....Loading file: 3c273_32.dat'
      do i__=1,2452
        read(1,'(A42)')ar__4
        read(ar__4,5)
     +  MJD_4(i__),e_MJD_4(i__),Crate_4(i__),Cerror_4(i__)
c    ..............Just test output...........
        write(6,5)
     +  MJD_4(i__),e_MJD_4(i__),Crate_4(i__),Cerror_4(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file '3c273_57.dat'	! Lightcurve of 3C273 with 5760sec bin

C  Format for file interpretation

    6 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'3c273_57.dat')
      write(6,*) '....Loading file: 3c273_57.dat'
      do i__=1,67
        read(1,'(A42)')ar__5
        read(ar__5,6)
     +  MJD_5(i__),e_MJD_5(i__),Crate_5(i__),Cerror_5(i__)
c    ..............Just test output...........
        write(6,6)
     +  MJD_5(i__),e_MJD_5(i__),Crate_5(i__),Cerror_5(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'mc630_32.dat'	! Lightcurve of MCG-6-30-15 with 32sec bin

C  Format for file interpretation

    7 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'mc630_32.dat')
      write(6,*) '....Loading file: mc630_32.dat'
      do i__=1,2184
        read(1,'(A42)')ar__6
        read(ar__6,7)
     +  MJD_6(i__),e_MJD_6(i__),Crate_6(i__),Cerror_6(i__)
c    ..............Just test output...........
        write(6,7)
     +  MJD_6(i__),e_MJD_6(i__),Crate_6(i__),Cerror_6(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'mc630_57.dat'	! Lightcurve of MCG-6-30-15; 5760sec bin

C  Format for file interpretation

    8 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'mc630_57.dat')
      write(6,*) '....Loading file: mc630_57.dat'
      do i__=1,59
        read(1,'(A42)')ar__7
        read(ar__7,8)
     +  MJD_7(i__),e_MJD_7(i__),Crate_7(i__),Cerror_7(i__)
c    ..............Just test output...........
        write(6,8)
     +  MJD_7(i__),e_MJD_7(i__),Crate_7(i__),Cerror_7(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'n5506_32.dat'	! Lightcurve of NGC5506 with 32sec bin

C  Format for file interpretation

    9 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n5506_32.dat')
      write(6,*) '....Loading file: n5506_32.dat'
      do i__=1,1985
        read(1,'(A42)')ar__8
        read(ar__8,9)
     +  MJD_8(i__),e_MJD_8(i__),Crate_8(i__),Cerror_8(i__)
c    ..............Just test output...........
        write(6,9)
     +  MJD_8(i__),e_MJD_8(i__),Crate_8(i__),Cerror_8(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'n5506_57.dat'	! Lightcurve of NGC5506 with 5760sec bin

C  Format for file interpretation

   10 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n5506_57.dat')
      write(6,*) '....Loading file: n5506_57.dat'
      do i__=1,45
        read(1,'(A42)')ar__9
        read(ar__9,10)
     +  MJD_9(i__),e_MJD_9(i__),Crate_9(i__),Cerror_9(i__)
c    ..............Just test output...........
        write(6,10)
     +  MJD_9(i__),e_MJD_9(i__),Crate_9(i__),Cerror_9(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'n5548_32.dat'	! Lightcurve of NGC5548 with 32sec bin

C  Format for file interpretation

   11 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n5548_32.dat')
      write(6,*) '....Loading file: n5548_32.dat'
      do i__=1,6772
        read(1,'(A42)')ar__10
        read(ar__10,11)
     +  MJD_10(i__),e_MJD_10(i__),Crate_10(i__),Cerror_10(i__)
c    ..............Just test output...........
        write(6,11)
     +  MJD_10(i__),e_MJD_10(i__),Crate_10(i__),Cerror_10(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'n5548_57.dat'	! Lightcurve of NGC5548 with 5760sec bin

C  Format for file interpretation

   12 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n5548_57.dat')
      write(6,*) '....Loading file: n5548_57.dat'
      do i__=1,152
        read(1,'(A42)')ar__11
        read(ar__11,12)
     +  MJD_11(i__),e_MJD_11(i__),Crate_11(i__),Cerror_11(i__)
c    ..............Just test output...........
        write(6,12)
     +  MJD_11(i__),e_MJD_11(i__),Crate_11(i__),Cerror_11(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'es103_32.dat'	! Lightcurve of ESO103-G035 with 32sec bin

C  Format for file interpretation

   13 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'es103_32.dat')
      write(6,*) '....Loading file: es103_32.dat'
      do i__=1,1266
        read(1,'(A42)')ar__12
        read(ar__12,13)
     +  MJD_12(i__),e_MJD_12(i__),Crate_12(i__),Cerror_12(i__)
c    ..............Just test output...........
        write(6,13)
     +  MJD_12(i__),e_MJD_12(i__),Crate_12(i__),Cerror_12(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'es103_57.dat'	! Lightcurve of ESO103-G035; 5760sec bin

C  Format for file interpretation

   14 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'es103_57.dat')
      write(6,*) '....Loading file: es103_57.dat'
      do i__=1,30
        read(1,'(A42)')ar__13
        read(ar__13,14)
     +  MJD_13(i__),e_MJD_13(i__),Crate_13(i__),Cerror_13(i__)
c    ..............Just test output...........
        write(6,14)
     +  MJD_13(i__),e_MJD_13(i__),Crate_13(i__),Cerror_13(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'p2155_32.dat'	! Lightcurve of PKS2155-304 with 32sec bin

C  Format for file interpretation

   15 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'p2155_32.dat')
      write(6,*) '....Loading file: p2155_32.dat'
      do i__=1,2372
        read(1,'(A42)')ar__14
        read(ar__14,15)
     +  MJD_14(i__),e_MJD_14(i__),Crate_14(i__),Cerror_14(i__)
c    ..............Just test output...........
        write(6,15)
     +  MJD_14(i__),e_MJD_14(i__),Crate_14(i__),Cerror_14(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'p2155_57.dat'	! Lightcurve of PKS2155-304; 5760sec bin

C  Format for file interpretation

   16 format(1X,F13.7,1X,F10.7,1X,F8.3,1X,F7.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'p2155_57.dat')
      write(6,*) '....Loading file: p2155_57.dat'
      do i__=1,66
        read(1,'(A42)')ar__15
        read(ar__15,16)
     +  MJD_15(i__),e_MJD_15(i__),Crate_15(i__),Cerror_15(i__)
c    ..............Just test output...........
        write(6,16)
     +  MJD_15(i__),e_MJD_15(i__),Crate_15(i__),Cerror_15(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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