Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/610/L12 into FORTRAN code for reading data files line by line.
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/A+A/610/L12 KIC 8462852 GTC spectra (Deeg+, 2018) *================================================================================ *Non-grey dimming events of KIC 8462852 from GTC spectrophotometry. * Deeg H.J., Alonso R., Nespral D., Boyajian T. * <Astron. Astrophys. 610, L12 (2018)> * =2018A&A...610L..12D (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Observed fluxes at each pointing in five wavelengths bands, indicated by their central wavelengths in nm integer*4 nr__ parameter (nr__=16) ! Number of records character*97 ar__ ! Full-size record integer*4 Nr ! [1/16] Pointing sequential number character*1 n_Nr ! [ab] Note (1) real*8 BJD ! (d) Observation central time of each pointing * (BJD-2400000) real*4 F556 ! Observed normalized flux in 556um band real*4 e_F556 ! rms uncertainty on F556 real*4 F618 ! Observed normalized flux in 618um band real*4 e_F618 ! rms uncertainty on F618 real*4 F709 ! Observed normalized flux in 709um band real*4 e_F709 ! rms uncertainty on F709 real*4 F792 ! Observed normalized flux in 792um band real*4 e_F792 ! rms uncertainty on F792 real*4 F868 ! Observed normalized flux in 868um band real*4 e_F868 ! rms uncertainty on F868 character*12 FileName ! Name of the table with times of mid-exposure * of each spectrum for this pointing *Note (1): Notes as follows: * a = Data not used in analysis due to large scatter from varying exposure times * b = Data not used due to poor sky transparency c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p01.dat' ! Pointing 01 times of mid-exposure of each spectrum integer*4 nr__1 parameter (nr__1=10) ! Number of records character*51 ar__1 ! Full-size record real*8 BJD_1 ! (d) Time (BJD-2400000) character*12 spTarget ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p02.dat' ! Pointing 02 times of mid-exposure of each spectrum integer*4 nr__2 parameter (nr__2=45) ! Number of records character*51 ar__2 ! Full-size record real*8 BJD_2 ! (d) Time (BJD-2400000) character*12 spTarget_1 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_1 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p03.dat' ! Pointing 03 times of mid-exposure of each spectrum integer*4 nr__3 parameter (nr__3=45) ! Number of records character*51 ar__3 ! Full-size record real*8 BJD_3 ! (d) Time (BJD-2400000) character*12 spTarget_2 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_2 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p04.dat' ! Pointing 04 times of mid-exposure of each spectrum integer*4 nr__4 parameter (nr__4=33) ! Number of records character*51 ar__4 ! Full-size record real*8 BJD_4 ! (d) Time (BJD-2400000) character*12 spTarget_3 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_3 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p05.dat' ! Pointing 05 times of mid-exposure of each spectrum integer*4 nr__5 parameter (nr__5=30) ! Number of records character*51 ar__5 ! Full-size record real*8 BJD_5 ! (d) Time (BJD-2400000) character*12 spTarget_4 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_4 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p06.dat' ! Pointing 06 times of mid-exposure of each spectrum integer*4 nr__6 parameter (nr__6=35) ! Number of records character*51 ar__6 ! Full-size record real*8 BJD_6 ! (d) Time (BJD-2400000) character*12 spTarget_5 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_5 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p07.dat' ! Pointing 07 times of mid-exposure of each spectrum integer*4 nr__7 parameter (nr__7=30) ! Number of records character*51 ar__7 ! Full-size record real*8 BJD_7 ! (d) Time (BJD-2400000) character*12 spTarget_6 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_6 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p08.dat' ! Pointing 08 times of mid-exposure of each spectrum integer*4 nr__8 parameter (nr__8=31) ! Number of records character*51 ar__8 ! Full-size record real*8 BJD_8 ! (d) Time (BJD-2400000) character*12 spTarget_7 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_7 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p09.dat' ! Pointing 09 times of mid-exposure of each spectrum integer*4 nr__9 parameter (nr__9=44) ! Number of records character*51 ar__9 ! Full-size record real*8 BJD_9 ! (d) Time (BJD-2400000) character*12 spTarget_8 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_8 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p10.dat' ! Pointing 10 times of mid-exposure of each spectrum integer*4 nr__10 parameter (nr__10=31) ! Number of records character*51 ar__10 ! Full-size record real*8 BJD_10 ! (d) Time (BJD-2400000) character*12 spTarget_9 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_9 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p11.dat' ! Pointing 11 times of mid-exposure of each spectrum integer*4 nr__11 parameter (nr__11=19) ! Number of records character*51 ar__11 ! Full-size record real*8 BJD_11 ! (d) Time (BJD-2400000) character*12 spTarget_10 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_10 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p12.dat' ! Pointing 12 times of mid-exposure of each spectrum integer*4 nr__12 parameter (nr__12=24) ! Number of records character*51 ar__12 ! Full-size record real*8 BJD_12 ! (d) Time (BJD-2400000) character*12 spTarget_11 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_11 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p13.dat' ! Pointing 13 times of mid-exposure of each spectrum integer*4 nr__13 parameter (nr__13=30) ! Number of records character*51 ar__13 ! Full-size record real*8 BJD_13 ! (d) Time (BJD-2400000) character*12 spTarget_12 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_12 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p14.dat' ! Pointing 14 times of mid-exposure of each spectrum integer*4 nr__14 parameter (nr__14=35) ! Number of records character*51 ar__14 ! Full-size record real*8 BJD_14 ! (d) Time (BJD-2400000) character*12 spTarget_13 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_13 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p15.dat' ! Pointing 15 times of mid-exposure of each spectrum integer*4 nr__15 parameter (nr__15=31) ! Number of records character*51 ar__15 ! Full-size record real*8 BJD_15 ! (d) Time (BJD-2400000) character*12 spTarget_14 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_14 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'time_p16.dat' ! Pointing 16 times of mid-exposure of each spectrum integer*4 nr__16 parameter (nr__16=43) ! Number of records character*51 ar__16 ! Full-size record real*8 BJD_16 ! (d) Time (BJD-2400000) character*12 spTarget_15 ! Name of the target spectrum name in * subdirectory sp_target character*12 spComp_15 ! Name of the comparison spectrum name in * subdirectory sp_compar c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'sp_target/*' ! Individual target (KIC 8462852) spectra integer*4 nr__17 parameter (nr__17=516) ! Number of records character*30 ar__17 ! Full-size record real*8 lambda ! (nm) Wavelength real*8 Flux ! Flux in arbitrary unit c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'sp_compar/*' ! Individual comparison (KIC 8462763) spectra integer*4 nr__18 parameter (nr__18=516) ! Number of records character*30 ar__18 ! Full-size record real*8 lambda_1 ! (nm) Wavelength real*8 Flux_1 ! Flux in arbitrary unit C============================================================================= C Loading file 'table1.dat' ! Observed fluxes at each pointing in five * wavelengths bands, indicated by their central * wavelengths in nm C Format for file interpretation 1 format( + I2,A1,1X,F10.4,1X,F6.4,1X,F6.4,1X,F6.4,1X,F6.4,1X,F6.4,1X, + F6.4,1X,F6.4,1X,F6.4,1X,F6.4,1X,F6.4,1X,A12) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,16 read(1,'(A97)')ar__ read(ar__,1) + Nr,n_Nr,BJD,F556,e_F556,F618,e_F618,F709,e_F709,F792,e_F792, + F868,e_F868,FileName c ..............Just test output........... write(6,1) + Nr,n_Nr,BJD,F556,e_F556,F618,e_F618,F709,e_F709,F792,e_F792, + F868,e_F868,FileName c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p01.dat' ! Pointing 01 times of mid-exposure of each spectrum C Format for file interpretation 2 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p01.dat') write(6,*) '....Loading file: time_p01.dat' do i__=1,10 read(1,'(A51)')ar__1 read(ar__1,2)BJD_1,spTarget,spComp c ..............Just test output........... write(6,2)BJD_1,spTarget,spComp c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p02.dat' ! Pointing 02 times of mid-exposure of each spectrum C Format for file interpretation 3 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p02.dat') write(6,*) '....Loading file: time_p02.dat' do i__=1,45 read(1,'(A51)')ar__2 read(ar__2,3)BJD_2,spTarget_1,spComp_1 c ..............Just test output........... write(6,3)BJD_2,spTarget_1,spComp_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p03.dat' ! Pointing 03 times of mid-exposure of each spectrum C Format for file interpretation 4 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p03.dat') write(6,*) '....Loading file: time_p03.dat' do i__=1,45 read(1,'(A51)')ar__3 read(ar__3,4)BJD_3,spTarget_2,spComp_2 c ..............Just test output........... write(6,4)BJD_3,spTarget_2,spComp_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p04.dat' ! Pointing 04 times of mid-exposure of each spectrum C Format for file interpretation 5 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p04.dat') write(6,*) '....Loading file: time_p04.dat' do i__=1,33 read(1,'(A51)')ar__4 read(ar__4,5)BJD_4,spTarget_3,spComp_3 c ..............Just test output........... write(6,5)BJD_4,spTarget_3,spComp_3 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p05.dat' ! Pointing 05 times of mid-exposure of each spectrum C Format for file interpretation 6 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p05.dat') write(6,*) '....Loading file: time_p05.dat' do i__=1,30 read(1,'(A51)')ar__5 read(ar__5,6)BJD_5,spTarget_4,spComp_4 c ..............Just test output........... write(6,6)BJD_5,spTarget_4,spComp_4 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p06.dat' ! Pointing 06 times of mid-exposure of each spectrum C Format for file interpretation 7 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p06.dat') write(6,*) '....Loading file: time_p06.dat' do i__=1,35 read(1,'(A51)')ar__6 read(ar__6,7)BJD_6,spTarget_5,spComp_5 c ..............Just test output........... write(6,7)BJD_6,spTarget_5,spComp_5 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p07.dat' ! Pointing 07 times of mid-exposure of each spectrum C Format for file interpretation 8 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p07.dat') write(6,*) '....Loading file: time_p07.dat' do i__=1,30 read(1,'(A51)')ar__7 read(ar__7,8)BJD_7,spTarget_6,spComp_6 c ..............Just test output........... write(6,8)BJD_7,spTarget_6,spComp_6 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p08.dat' ! Pointing 08 times of mid-exposure of each spectrum C Format for file interpretation 9 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p08.dat') write(6,*) '....Loading file: time_p08.dat' do i__=1,31 read(1,'(A51)')ar__8 read(ar__8,9)BJD_8,spTarget_7,spComp_7 c ..............Just test output........... write(6,9)BJD_8,spTarget_7,spComp_7 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p09.dat' ! Pointing 09 times of mid-exposure of each spectrum C Format for file interpretation 10 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p09.dat') write(6,*) '....Loading file: time_p09.dat' do i__=1,44 read(1,'(A51)')ar__9 read(ar__9,10)BJD_9,spTarget_8,spComp_8 c ..............Just test output........... write(6,10)BJD_9,spTarget_8,spComp_8 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p10.dat' ! Pointing 10 times of mid-exposure of each spectrum C Format for file interpretation 11 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p10.dat') write(6,*) '....Loading file: time_p10.dat' do i__=1,31 read(1,'(A51)')ar__10 read(ar__10,11)BJD_10,spTarget_9,spComp_9 c ..............Just test output........... write(6,11)BJD_10,spTarget_9,spComp_9 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p11.dat' ! Pointing 11 times of mid-exposure of each spectrum C Format for file interpretation 12 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p11.dat') write(6,*) '....Loading file: time_p11.dat' do i__=1,19 read(1,'(A51)')ar__11 read(ar__11,12)BJD_11,spTarget_10,spComp_10 c ..............Just test output........... write(6,12)BJD_11,spTarget_10,spComp_10 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p12.dat' ! Pointing 12 times of mid-exposure of each spectrum C Format for file interpretation 13 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p12.dat') write(6,*) '....Loading file: time_p12.dat' do i__=1,24 read(1,'(A51)')ar__12 read(ar__12,13)BJD_12,spTarget_11,spComp_11 c ..............Just test output........... write(6,13)BJD_12,spTarget_11,spComp_11 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p13.dat' ! Pointing 13 times of mid-exposure of each spectrum C Format for file interpretation 14 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p13.dat') write(6,*) '....Loading file: time_p13.dat' do i__=1,30 read(1,'(A51)')ar__13 read(ar__13,14)BJD_13,spTarget_12,spComp_12 c ..............Just test output........... write(6,14)BJD_13,spTarget_12,spComp_12 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p14.dat' ! Pointing 14 times of mid-exposure of each spectrum C Format for file interpretation 15 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p14.dat') write(6,*) '....Loading file: time_p14.dat' do i__=1,35 read(1,'(A51)')ar__14 read(ar__14,15)BJD_14,spTarget_13,spComp_13 c ..............Just test output........... write(6,15)BJD_14,spTarget_13,spComp_13 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p15.dat' ! Pointing 15 times of mid-exposure of each spectrum C Format for file interpretation 16 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p15.dat') write(6,*) '....Loading file: time_p15.dat' do i__=1,31 read(1,'(A51)')ar__15 read(ar__15,16)BJD_15,spTarget_14,spComp_14 c ..............Just test output........... write(6,16)BJD_15,spTarget_14,spComp_14 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'time_p16.dat' ! Pointing 16 times of mid-exposure of each spectrum C Format for file interpretation 17 format(3X,F22.16,1X,A12,1X,A12) C Effective file loading open(unit=1,status='old',file= +'time_p16.dat') write(6,*) '....Loading file: time_p16.dat' do i__=1,43 read(1,'(A51)')ar__16 read(ar__16,17)BJD_16,spTarget_15,spComp_15 c ..............Just test output........... write(6,17)BJD_16,spTarget_15,spComp_15 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'sp_target/*' ! Individual target (KIC 8462852) spectra C Format for file interpretation 18 format(2X,F13.7,1X,F14.7) C Effective file loading open(unit=1,status='old',file= +'sp_target/*') write(6,*) '....Loading file: sp_target/*' do i__=1,516 read(1,'(A30)')ar__17 read(ar__17,18)lambda,Flux c ..............Just test output........... write(6,18)lambda,Flux c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'sp_compar/*' ! Individual comparison (KIC 8462763) spectra C Format for file interpretation 19 format(2X,F13.7,1X,F14.7) C Effective file loading open(unit=1,status='old',file= +'sp_compar/*') write(6,*) '....Loading file: sp_compar/*' do i__=1,516 read(1,'(A30)')ar__18 read(ar__18,19)lambda_1,Flux_1 c ..............Just test output........... write(6,19)lambda_1,Flux_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end