Conversion of standardized ReadMe file for
file /./ftp/cats/J/other/Obs/136.168 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/other/Obs/136.168 Early observations of M13 variables (Osborn,+, 2016) *================================================================================ *Early 20th-Century visual observations of M13 variable stars. * Osborn W., Barnard E.E. * <The Observatory 136, 168 (2016)> * =2016Obs...136..168O (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Barnard's published observations of Variable 2 integer*4 nr__ parameter (nr__=37) ! Number of records character*49 ar__ ! Full-size record character*12 Date ! Local date of observation character*5 Time ! ("h:m") Local time of observation (hh:mm) real*4 dmag ! (mag) ? Variable to comparison star magnitude difference character*3 n_dmag ! [Max ] Note on dmag real*8 HJD ! (d) Derived heliocentric Julian Date real*4 Vmag ! (mag) Derived approximate V magnitude c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Barnard's unpublished observations of Var. 2 integer*4 nr__1 parameter (nr__1=75) ! Number of records character*78 ar__1 ! Full-size record character*12 Date_1 ! Local date of observation character*5 Time_1 ! ("h:m") Local time of observation (hh:mm) real*4 dmag_1 ! (mag) ? Variable to comparison star magnitude difference character*1 u_dmag ! [?] Uncertainty flag on dmag character*31 n_dmag_1 ! Note on dmag real*8 HJD_1 ! (d) Derived heliocentric Julian Date real*4 Vmag_1 ! (mag) Derived approximate V magnitude of Variable 2 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Additional unpublished observations of Var. 2 integer*4 nr__2 parameter (nr__2=56) ! Number of records character*65 ar__2 ! Full-size record character*12 Date_2 ! Local date of observation character*5 Time_2 ! ("h:m") Local time of observation (hh:mm) real*4 dmag_2 ! (mag) ? Variable to comparison star magnitude difference character*1 u_dmag_1 ! [?] Uncertainty flag on dmag character*7 n_dmag_2 ! Note on dmag real*8 HJD_2 ! (d) Derived heliocentric Julian Date real*4 Vmag_2 ! (mag) Derived approximate V magnitude of Variable 2 character*11 Notes ! Notes c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Later observations of Var. 2 and Var. 1 integer*4 nr__3 parameter (nr__3=111) ! Number of records character*51 ar__3 ! Full-size record character*12 Date_3 ! Local date of observation real*8 HJD_3 ! (d) ? Derived heliocentric Julian Date real*4 V2 ! (mag) ? Derived approximate V magnitude of V2 real*4 V1_841 ! (mag) ? Derived V magnitude of Var 1 (L841 comparison) real*4 V1_np ! (mag) ? Derived V magnitude of Var 1 (np comparison) integer*4 Notes_1 ! [1/2]? How sidereal time used in computing HJD (1) *Note (1): How sidereal time used in computing HJD flag as follows: * 1 = Barnard gave both local time and sideral time. Both used in deriving HJD. * 2 = Barnard gave only sideral time. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Approximate V magnitudes from plates integer*4 nr__4 parameter (nr__4=9) ! Number of records character*70 ar__4 ! Full-size record character*6 Plate ! Yerkes 40-inch refractor plate number character*11 Date_4 ! Local date of observation character*19 Time_3 ! Listed exposure time of plate (hh:mm) real*8 HJD_4 ! (d) Derived heliocentric Julian Date real*4 V2mag ! (mag) Derived approximate V magnitude of Variable 2 real*4 V1mag ! Derived approximate V magnitude of Variable 1 C============================================================================= C Loading file 'table1.dat' ! Barnard's published observations of Variable 2 C Format for file interpretation 1 format(A12,2X,A5,4X,F3.1,A3,1X,F11.3,4X,F4.1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,37 read(1,'(A49)')ar__ read(ar__,1)Date,Time,dmag,n_dmag,HJD,Vmag if(ar__(24:26) .EQ. '') dmag = rNULL__ c ..............Just test output........... write(6,1)Date,Time,dmag,n_dmag,HJD,Vmag c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Barnard's unpublished observations of Var. 2 C Format for file interpretation 2 format(A12,2X,A5,3X,F4.2,A1,1X,A31,1X,F11.3,3X,F4.1) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,75 read(1,'(A78)')ar__1 read(ar__1,2)Date_1,Time_1,dmag_1,u_dmag,n_dmag_1,HJD_1,Vmag_1 if(ar__1(23:26) .EQ. '') dmag_1 = rNULL__ c ..............Just test output........... write(6,2)Date_1,Time_1,dmag_1,u_dmag,n_dmag_1,HJD_1,Vmag_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Additional unpublished observations of Var. 2 C Format for file interpretation 3 format(A12,2X,A5,3X,F4.2,A1,A7,1X,F11.3,2X,F4.1,2X,A11) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,56 read(1,'(A65)')ar__2 read(ar__2,3) + Date_2,Time_2,dmag_2,u_dmag_1,n_dmag_2,HJD_2,Vmag_2,Notes if(ar__2(23:26) .EQ. '') dmag_2 = rNULL__ c ..............Just test output........... write(6,3) + Date_2,Time_2,dmag_2,u_dmag_1,n_dmag_2,HJD_2,Vmag_2,Notes c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Later observations of Var. 2 and Var. 1 C Format for file interpretation 4 format(A12,3X,F11.3,3X,F4.1,3X,F4.1,3X,F4.1,3X,I1) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,111 read(1,'(A51)')ar__3 read(ar__3,4)Date_3,HJD_3,V2,V1_841,V1_np,Notes_1 if(ar__3(16:26) .EQ. '') HJD_3 = rNULL__ if(ar__3(30:33) .EQ. '') V2 = rNULL__ if(ar__3(37:40) .EQ. '') V1_841 = rNULL__ if(ar__3(44:47) .EQ. '') V1_np = rNULL__ if(ar__3(51:51) .EQ. '') Notes_1 = iNULL__ c ..............Just test output........... write(6,4)Date_3,HJD_3,V2,V1_841,V1_np,Notes_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Approximate V magnitudes from plates C Format for file interpretation 5 format(A6,2X,A11,2X,A19,3X,F11.3,3X,F5.2,3X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,9 read(1,'(A70)')ar__4 read(ar__4,5)Plate,Date_4,Time_3,HJD_4,V2mag,V1mag c ..............Just test output........... write(6,5)Plate,Date_4,Time_3,HJD_4,V2mag,V1mag c .......End.of.Just test output........... end do close(1) C============================================================================= stop end