Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/157/95 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 2026-Oct-12
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/157/95 Optical variability of OJ 287 in 2016-2017 (Gupta+, 2019)
*================================================================================
*Characterizing optical variability of OJ 287 in 2016-2017.
* Gupta A.C., Gaur H., Wiita P.J., Pandey A., Kushwaha P., Hu S.M.,
* Kurtanidze O.M., Semkov E., Damljanovic G., Goyal A., Uemura M., Darriba A.,
* Chen Xu, Vince O., Gu M.F., Zhang Z., Bachev R., Chanishvili R., Itoh R.,
* Kawabata M., Kurtanidze S.O., Nakaoka T., Nikolashvili M.G., Stawarz L.,
* Strigachev A.
* <Astron. J., 157, 95 (2019)>
* =2019AJ....157...95G (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Observation log of optical photometric
observations of the blazar OJ 287
integer*4 nr__
parameter (nr__=247) ! Number of records
character*23 ar__ ! Full-size record
character*10 Date ! ("date") Date of the observation
character*1 Tel ! Telescope code (1)
integer*4 o_Bmag ! [0/8] Number of B band observations
integer*4 o_Vmag ! [0/72] Number of V band observations
integer*4 o_Rmag ! [0/74] Number of R band observations
integer*4 o_Imag ! [0/74] Number of I band observations
*Note (1): Telescope as follows:
* A = 2.3-m Bok Telescope and 1.54-m Kuiper Telescope at Steward Observatory,
* Arizona, USA;
* B = 1.0-m Cassegrain Telescope in Weihai, China;
* C = 2-m Ritchey-Chretien Telescope and 50/70-cm Schmidt Telescope at National
* Astronomical Observatory, Rozhen, Bulgaria;
* D = 35.6 cm Telescope at Observatorio Astronomico Las Casqueras, Spain;
* E = 1.4-m Telescope, Astronomical Station Vidojevica (ASV), Serbia;
* F = 70-cm meniscus telescope at Abastumani Observatory, Georgia;
* G = 1.5-m KANATA telescope at Higashi-Hiroshima Observatory, Japan.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Results of intraday variability (IDV) observations
integer*4 nr__1
parameter (nr__1=55) ! Number of records
character*121 ar__1 ! Full-size record
character*10 Date_1 ! ("date") Date of the observation
character*5 Band ! Band or color
integer*4 Nobs ! [13/74] Number of observations in Band
real*4 F1 ! [0.01/3.92] The F_1_ value in the F-test
real*4 F2 ! [0.15/2.76] The F_2_ value in the F-test
real*4 F ! [0.4/3.1] The F value in the F-test
real*4 Fc_0_99 ! [1.73/4.16] The F_c_(0.99) value in the
* F-test
real*4 Fc_0_999 ! [2.08/7] The F_c_(0.999) value in the F-test
real*4 chi2_1 ! [7.22/320.75] The {chi}^2^_1_ value in the
* {chi}^2^-test
real*8 chi2_2 ! [5.25/16199.26] The {chi}^2^_2_ value in the
* {chi}^2^-test
real*8 chi2_av ! [6.23/8117.93] The {chi}^2^_av_ value in the
* {chi}^2^-test
real*4 chi2_0_99 ! [26.22/104.01] The {chi}^2^_0.99_ value in
* the {chi}^2^-test
real*4 chi2_0_999 ! [32.91/116.09] The {chi}^2^_0.999_ value in
* the {chi}^2^-test
real*4 W1 ! [0.00308/4.43] The W_1_ value in the Levene
* test
real*4 p1 ! [0.0385/0.956] The p_1_ value in the Levene
* test
real*4 W2 ! [6.56e-05/19.9] The W_2_ value in the Levene
* test
real*4 p2 ! [1.59e-05/0.994] The p_2_ value in the Levene
* test
character*2 Var ! Variable flag (NV=Non-variable)
C=============================================================================
C Loading file 'table1.dat' ! Observation log of optical photometric
* observations of the blazar OJ 287
C Format for file interpretation
1 format(A10,1X,A1,1X,I1,1X,I2,1X,I2,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,247
read(1,'(A23)')ar__
read(ar__,1)Date,Tel,o_Bmag,o_Vmag,o_Rmag,o_Imag
c ..............Just test output...........
write(6,1)Date,Tel,o_Bmag,o_Vmag,o_Rmag,o_Imag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Results of intraday variability (IDV) observations
C Format for file interpretation
2 format(
+ A10,1X,A5,1X,I2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,
+ F6.2,1X,F8.2,1X,F7.2,1X,F6.2,1X,F6.2,1X,E8.2,1X,E8.2,1X,E8.2,
+ 1X,E8.2,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,55
read(1,'(A121)')ar__1
read(ar__1,2)
+ Date_1,Band,Nobs,F1,F2,F,Fc_0_99,Fc_0_999,chi2_1,chi2_2,
+ chi2_av,chi2_0_99,chi2_0_999,W1,p1,W2,p2,Var
c ..............Just test output...........
write(6,2)
+ Date_1,Band,Nobs,F1,F2,F,Fc_0_99,Fc_0_999,chi2_1,chi2_2,
+ chi2_av,chi2_0_99,chi2_0_999,W1,p1,W2,p2,Var
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end