Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/818/105 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-Oct-07
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/818/105 CNSS pilot survey (Mooley+, 2016)
*================================================================================
*The Caltech-NRAO stripe 82 survey (CNSS). I. The pilot radio transient survey
*in 50 deg^2^.
* Mooley K.P., Hallinan G., Bourke S., Horesh A., Myers S.T., Frail D.A.,
* Kulkarni S.R., Levitan D.B., Kasliwal M.M., Cenko S.B., Cao Y., Bellm E.,
* Laher R.R.
* <Astrophys. J., 818, 105 (2016)>
* =2016ApJ...818..105M (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Summary of the radio transient and variable
sources found in this work
integer*4 nr__
parameter (nr__=152) ! Number of records
character*170 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*18 Time (nr__) ! Timescale of search (less than 1 week, 1 month,
* 1.5yr, 20yr)
character*13 VTC (nr__) ! VTC name (VTC JHHMMSS+DDMMSS in SIMBAD)
real*8 RAdeg (nr__) ! (deg) [329.252/353.256] Right ascension (J2000)
real*8 DEdeg (nr__) ! (deg) [-1.193/1.197] Declination (J2000)
real*8 SE1 (nr__) ! (mJy) [0.09/359.852] Flux density at epoch E1
real*4 e_SE1 (nr__) ! (mJy) [0.054/1.2] Error in SE1
real*8 SE2 (nr__) ! (mJy) [0.271/324.569] Flux density at epoch E2
real*4 e_SE2 (nr__) ! (mJy) [0.044/0.769] Error in SE2
real*8 SE3 (nr__) ! (mJy) [0.046/362.536] Flux density at epoch E3
real*4 e_SE3 (nr__) ! (mJy) [0.047/1.024] Error in SE3
real*8 SE4 (nr__) ! (mJy) [0.098/545.119] Flux density at epoch E4
real*4 e_SE4 (nr__) ! (mJy) [0.041/0.403] Error in SE4
real*4 m (nr__) ! [-0.81/1.61] Modulation index
character*1 l_Sf (nr__) ! [<] Limit flag on Sf (1)
real*4 Sf (nr__) ! (mJy) [0.49/617.48] FIRST flux density
real*4 e_Sf (nr__) ! (mJy) [0.09/0.89]? Error in Sf
character*1 l_Sh (nr__) ! [<] Limit flag on Sh (1)
real*4 Sh (nr__) ! (mJy) [0.17/397.62]? Hodge et al. (2011, Cat.
* J/AJ/142/3) flux density
real*4 e_Sh (nr__) ! (mJy) [0.05/5.57]? Error in Sh
real*4 rmag (nr__) ! (mag) [8.9/25.3]? SDSS r magnitude
character*2 PTF (nr__) ! [nv/V ] Variability of optical counterpart (2)
real*4 zsp (nr__) ! [0.06/2.99]? Spectroscopic redshift (3)
character*1 n_zsp (nr__) ! [a] Photometric redshift estimate from SDSS
real*4 Lum (nr__) ! (10-3W/m2) [29.1/34.7]? Radio luminosity (4)
character*6 Id (nr__) ! Identification (AGN QSO)
*Note (1): All flux density upper limits are 3{sigma}.
*Note (2): Variability properties of the optical counterparts of the radio
* variable sources, defined as follows:
* V = variable
* nv = not variable
*Note (3): Spectroscopic redshift from SDSS or from our follow-up observations.
*Note (4): Radio luminosity averaged over the four epochs of the pilot survey.
C=============================================================================
C Loading file 'table3.dat' ! Summary of the radio transient and variable
* sources found in this work
C Format for file interpretation
1 format(
+ A18,1X,A13,1X,F10.6,1X,F9.6,1X,F7.3,1X,F5.3,1X,F7.3,1X,F5.3,
+ 1X,F7.3,1X,F5.3,1X,F7.3,1X,F5.3,1X,F5.2,1X,A1,1X,F6.2,1X,F4.2,
+ 1X,A1,1X,F6.2,1X,F4.2,1X,F4.1,1X,A2,1X,F4.2,1X,A1,1X,F4.1,1X,
+ A6)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,152
read(1,'(A170)')ar__
read(ar__,1)
+ Time(i__),VTC(i__),RAdeg(i__),DEdeg(i__),SE1(i__),e_SE1(i__),
+ SE2(i__),e_SE2(i__),SE3(i__),e_SE3(i__),SE4(i__),e_SE4(i__),
+ m(i__),l_Sf(i__),Sf(i__),e_Sf(i__),l_Sh(i__),Sh(i__),
+ e_Sh(i__),rmag(i__),PTF(i__),zsp(i__),n_zsp(i__),Lum(i__),
+ Id(i__)
if(ar__(126:129) .EQ. '') e_Sf(i__) = rNULL__
if(ar__(133:138) .EQ. '') Sh(i__) = rNULL__
if(ar__(140:143) .EQ. '') e_Sh(i__) = rNULL__
if(ar__(145:148) .EQ. '') rmag(i__) = rNULL__
if(ar__(153:156) .EQ. '') zsp(i__) = rNULL__
if(ar__(160:163) .EQ. '') Lum(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Time(i__),VTC(i__),RAdeg(i__),DEdeg(i__),SE1(i__),e_SE1(i__),
+ SE2(i__),e_SE2(i__),SE3(i__),e_SE3(i__),SE4(i__),e_SE4(i__),
+ m(i__),l_Sf(i__),Sf(i__),e_Sf(i__),l_Sh(i__),Sh(i__),
+ e_Sh(i__),rmag(i__),PTF(i__),zsp(i__),n_zsp(i__),Lum(i__),
+ Id(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end