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