Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/277/18 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 2026-May-14
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/ApJS/277/18 Optical light curves & variability of S5 0716+714 (Li+, 2025)
*================================================================================
*Optical monitoring and long-term optical spectral variability of BL Lacertae
*object S5 0716+714.
* Li H.-Z., Guo D.-F., Qin L.-H., Liu F., Liu H.-T., Yi T.-F., Gao Q.-G.,
* Huang S.-F., Gao X., Chen Xu
* <Astrophys. J. Suppl. Ser., 277, 18 (2025)>
* =2025ApJS..277...18L
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! The log of observations of S5 0716+714 in the Sloan
i' and r' bands
integer*4 nr__
parameter (nr__=5719) ! Number of records
character*69 ar__ ! Full-size record
character*10 Datei (nr__) ! ("Y/M/D") Observation date of i' band
real*8 MJDi (nr__) ! (d) [8475/8895.5]? Modified Julian Date of i'
* band observation; MJDi-50000
real*4 imag (nr__) ! (mag) [11.8/14.7]? Apparent i' band magnitude
real*4 e_imag (nr__) ! (mag) [0.001/0.2]? Uncertainty in imag
character*10 Dater (nr__) ! Observation date of r' band; YYYY-MM-DD
* format
real*8 MJDr (nr__) ! (d) [8475/8895.5] Modified Julian Date of r' band
* observation; MJDr-50000
real*4 rmag (nr__) ! (mag) [12/15.1] Apparent r' band magnitude
real*4 e_rmag (nr__) ! (mag) [0.001/0.3] Uncertainty in rmag
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Statistic parameters of intranight light curves
integer*4 nr__1
parameter (nr__1=158) ! Number of records
character*62 ar__1 ! Full-size record
character*10 Date (nr__1) ! ("Y/M/D") Observation date
character*1 Band (nr__1) ! [RI] Band identifier
integer*4 N (nr__1) ! [10/117] Number of observations per night
real*4 DeltaT (nr__1) ! (h) [0.8/11.8] Observation duration
real*4 FPeF (nr__1) ! [0.03/143.3] Power-enhanced F-test value
real*4 FPeFc (nr__1) ! [1.4/3.6] Power-enhanced F-test critical
* value at 99% confidence
real*4 FNA (nr__1) ! [0.06/69.8] Nested ANOVA F-value
real*4 FNAc (nr__1) ! [2.5/25.5] Nested ANOVA critical value at 99%
* confidence
character*2 V_N (nr__1) ! Microbariability label (1)
real*4 Amp (nr__1) ! (%) [7.4/100.8] Amplitude
real*4 mag (nr__1) ! (mag) [11.8/14.8] Average magnitude in Band
*Note (1): Microbariability label as follows:
* N = non-variable (50 occurrences)
* PV = possible variable (42 occurrences)
* V = variable (66 occurrences)
C=============================================================================
C Loading file 'table2.dat' ! The log of observations of S5 0716+714 in the Sloan
* i' and r' bands
C Format for file interpretation
1 format(
+ A10,1X,F10.5,1X,F6.3,1X,F5.3,1X,A10,1X,F10.5,1X,F6.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,5719
read(1,'(A69)')ar__
read(ar__,1)
+ Datei(i__),MJDi(i__),imag(i__),e_imag(i__),Dater(i__),
+ MJDr(i__),rmag(i__),e_rmag(i__)
if(ar__(12:21) .EQ. '') MJDi(i__) = rNULL__
if(ar__(23:28) .EQ. '') imag(i__) = rNULL__
if(ar__(30:34) .EQ. '') e_imag(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Datei(i__),MJDi(i__),imag(i__),e_imag(i__),Dater(i__),
+ MJDr(i__),rmag(i__),e_rmag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Statistic parameters of intranight light curves
C Format for file interpretation
2 format(
+ A10,1X,A1,1X,I3,1X,F5.2,1X,F6.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,A2,
+ 1X,F6.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,158
read(1,'(A62)')ar__1
read(ar__1,2)
+ Date(i__),Band(i__),N(i__),DeltaT(i__),FPeF(i__),FPeFc(i__),
+ FNA(i__),FNAc(i__),V_N(i__),Amp(i__),mag(i__)
c ..............Just test output...........
write(6,2)
+ Date(i__),Band(i__),N(i__),DeltaT(i__),FPeF(i__),FPeFc(i__),
+ FNA(i__),FNAc(i__),V_N(i__),Amp(i__),mag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end