Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/958/195 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-10
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/ApJ/958/195 AGN STORM 2. IV. Swift XRT and UVOT monitoring (Cackett+, 2023)
*================================================================================
*AGN STORM 2.
*IV. Swift X-ray and ultraviolet/optical monitoring of Mrk 817.
* Cackett E.M., Gelbord J., Barth A.J., De Rosa G., Edelson R., Goad M.R.,
* Homayouni Y., Horne K., Kara E.A., Kriss G.A., Korista K.T., Landt H.,
* Plesha R., Arav N., Bentz M.C., Boizelle B.D., Dalla Bonta E.,
* Dehghanian M., Donnan F., Du Pu, Ferland G.J., Fian C., Filippenko A.V.,
* Gonzalez Buitrago D.H., Grier C.J., Hall P.B., Hu C., Ilic D., Kaastra J.,
* Kaspi S., Kochanek C.S., Kovacevic A.B., Kynoch D., Li Y.-R., McLane J.N.,
* Mehdipour M., Miller J.A., Montano J., Netzer H., Panagiotou C.,
* Partington E., Popovic L. C, Proga D., Rogantini D., Sanmartim D.,
* Siebert M.R., Storchi-Bergmann T., Vestergaard M., Wang J.-M., Waters T.,
* Zaidouni F.
* <Astrophys. J., 958, 195 (2023)>
* =2023ApJ...958..195C
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Swift photometry of Mrk 817
integer*4 nr__
parameter (nr__=2745) ! Number of records
character*38 ar__ ! Full-size record
real*8 HJD (nr__) ! (d) [9176.5/9692.2] Heliocentric Julian Date;
* HJD-2450000
character*4 Filt (nr__) ! Filter/Band (1)
real*4 Flux (nr__) ! (10-15cW/m2/nm) [6.8/53.5]? Swift/UVOT Flux in Filt
* in 10^-15^erg/cm^2^/s/{AA}
real*4 e_Flux (nr__) ! (10-15cW/m2/nm) [0.1/1.7]? Uncertainty in Flux
real*4 CRate (nr__) ! (ct/s) [0.007/0.6]? X-ray rate in band
real*4 e_CRate (nr__) ! (ct/s) [0.003/0.06]? Uncertainty in CRate
*Note (1): Filter/Band as follows:
* H = Swift/XRT 1.5-10keV X-ray band (414 occurrences)
* S = Swift/XRT 0.3-1.5keV X-ray band (414 occurrences)
* UVW2 = Swift/UVOT UVW2-band; {lambda}_obs_=1928{AA} (314 occurrences)
* UVM2 = Swift/UVOT UVM2-band; {lambda}_obs_=2246{AA} (292 occurrences)
* UVW1 = Swift/UVOT UVW1-band; {lambda}_obs_=2600{AA} (302 occurrences)
* U = Swift/UVOT U-band; {lambda}_obs_=3465{AA} (324 occurrences)
* B = Swift/UVOT B-band; {lambda}_obs_=4392{AA} (339 occurrences)
* V = Swift/UVOT V-band; {lambda}_obs_=5468{AA} (346 occurrences)
C=============================================================================
C Loading file 'table1.dat' ! Swift photometry of Mrk 817
C Format for file interpretation
1 format(F8.3,1X,A4,1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,2745
read(1,'(A38)')ar__
read(ar__,1)
+ HJD(i__),Filt(i__),Flux(i__),e_Flux(i__),CRate(i__),
+ e_CRate(i__)
if(ar__(15:20) .EQ. '') Flux(i__) = rNULL__
if(ar__(22:26) .EQ. '') e_Flux(i__) = rNULL__
if(ar__(28:32) .EQ. '') CRate(i__) = rNULL__
if(ar__(34:38) .EQ. '') e_CRate(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ HJD(i__),Filt(i__),Flux(i__),e_Flux(i__),CRate(i__),
+ e_CRate(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end