Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/756/52 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-Jun-15
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/756/52 R-band light curve of QSO J0158-4325 images (Morgan+, 2012)
*================================================================================
*Further evidence that quasar X-ray emitting regions are compact: X-ray and
*optical microlensing in the lensed quasar Q J0158-4325.
* Morgan C.W., Hainline L.J., Chen B., Tewes M., Kochanek C.S., Dai X.,
* Kozlowski S., Blackburne J.A., Mosquera A.M., Chartas G., Courbin F.,
* Meylan G.
* <Astrophys. J., 756, 52 (2012)>
* =2012ApJ...756...52M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Q J0158-4325 light curves
integer*4 nr__
parameter (nr__=226) ! Number of records
character*46 ar__ ! Full-size record
real*8 HJD (nr__) ! (d) Heliocentric Julian Date; HJD-2450000
real*4 Seeing (nr__) ! (arcsec) [0.9/2.1] Seeing
real*4 magA (nr__) ! (mag) [1.6/1.9] R-band magnitude of QSO image A (1)
real*4 e_magA (nr__) ! (mag) [0.005/0.03] Uncertainty in magA
character*1 u_magA (nr__) ! [)] magA not used in the analysis (2)
real*4 magB (nr__) ! (mag) [2.4/3.0] R-band magnitude of QSO image B (1)
real*4 e_magB (nr__) ! (mag) [0.01/0.07] Uncertainty in magB
character*1 u_magB (nr__) ! [)] magB not used in the analysis (2)
character*6 Tel (nr__) ! Source of the observation (3)
*Note (1): The magA and magB columns give the magnitudes of the quasar
* images relative to the comparison stars.
*Note (2):
* ) = Seeing was FWHM{>=}2.0" and photometry was not used in the analysis.
*Note (3): Instrument as follows:
* Euler = 1.2m Euler Swiss Telescope.
* SMARTS = 1.3m telescope with the ANDICAM optical/infrared camera.
C=============================================================================
C Loading file 'table1.dat' ! Q J0158-4325 light curves
C Format for file interpretation
1 format(F8.3,1X,F4.2,1X,F5.3,1X,F5.3,A1,1X,F5.3,1X,F5.3,A1,1X,A6)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,226
read(1,'(A46)')ar__
read(ar__,1)
+ HJD(i__),Seeing(i__),magA(i__),e_magA(i__),u_magA(i__),
+ magB(i__),e_magB(i__),u_magB(i__),Tel(i__)
c ..............Just test output...........
write(6,1)
+ HJD(i__),Seeing(i__),magA(i__),e_magA(i__),u_magA(i__),
+ magB(i__),e_magB(i__),u_magB(i__),Tel(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end