Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/758/84 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-Aug-16
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/758/84 Relativistic jets in the RRFID database. II. 10yr (Piner+, 2012)
*================================================================================
*Relativistic jets in the Radio Reference Frame Image Database.
*II. Blazar jet accelerations from the first 10 years of data (1994-2003).
* Piner B.G., Pushkarev A.B., Kovalev Y.Y., Marvin C.J., Arenson J.G.,
* Charlot P., Fey A.L., Collioud A., Voitsik P.A.
* <Astrophys. J., 758, 84 (2012)>
* =2012ApJ...758...84P (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Sources in the RDV (Research & Development - VLBA)
sample
integer*4 nr__
parameter (nr__=68) ! Number of records
character*39 ar__ ! Full-size record
character*8 IERS ! IAU source name (HHMM+DDd; B1950)
character*1 f_IERS ! [efg] Note on source (1)
character*9 OName ! ? Other source name
integer*4 Nep ! [20/50] Number of epochs observed
character*5 Class ! Source optical class (2)(3)
real*4 z ! [0.004/4]? Redshift (2)
character*1 MOJ ! [Y ] Presence in MOJAVE? (4)
character*1 Fer ! [Y ] Presence in Fermi? (5)
*Note (1): Flag as follows:
* e = Tentative redshift from NED. (Redshift not in Veron-Cetty & Veron 2010,
* Cat. VII/258)
* f = Source is in the TANAMI sample (Ojha et al. 2010A&A...519A..45O).
* g = Optical class and redshift are from Ackermann et al. (2011,
* Cat. J/ApJ/743/171). (Source not in Veron-Cetty & Veron 2010,
* Cat. VII/258)
*Note (2): Unless otherwise noted, optical class and redshift are from
* Veron-Cetty & Veron (2010, Cat. VII/258).
*Note (3): Class as follows:
* Q = quasar,
* B = BL Lac object,
* G = galaxy,
* HP = high polarization,
* U = unidentified.
*Note (4): Whether or not source is in MOJAVE survey, using sample listed in
* Table 1 of Lister et al. (2009, Cat. J/AJ/137/3718). (Y = Yes)
*Note (5): Whether or not source is in the Fermi LAT 2 year AGN catalog,
* Ackermann et al. (2011, Cat. J/ApJ/743/171). (Y = Yes)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Gaussian models
integer*4 nr__1
parameter (nr__1=8571) ! Number of records
character*90 ar__1 ! Full-size record
character*8 IERS_1 ! IAU Name (HHMM+DDd; B1950)
real*4 S ! (Jy) [0.002/19.2] Component flux density at 8GHz
real*4 Rad ! (mas) [0/30] Radial position of component center
real*4 PA ! (deg) [-180/180] Position angle of component center (1)
real*4 a ! (mas) [0/14] Full-width at half maximum size of component
real*4 b_a ! Axial ratio of component
real*4 PAa ! (deg) [-90/90] Position angle of major axis of
* elliptical component (1)
integer*4 Type ! [0/1] DIFMAP component type (1 = Gaussian)
real*8 Epoch ! (yr) [1994/2004] Epoch of observation
integer*4 Comp ! [0/99] Component ID (2)
real*4 ab ! (mas) [0.6/17.1] Beam major axis (3)
real*4 bb ! (mas) [0.4/4.5] Beam minor axis
real*4 PAb ! (deg) [-90/90] Beam position angle
*Note (1): All position angles are measured from north through east.
*Note (2): An ID of '0' indicates the presumed core. An ID of '99' indicates
* a flagged component not used in the analysis. Other components are
* numbered from 1 to 11, from the outermost component inward.
* See section 3 for further explanations.
*Note (3): Beam parameters are computed using natural weighting specifically
* 'uvweight = 0,-1' in DIFMAP.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Apparent component speeds from linear fits
integer*4 nr__2
parameter (nr__2=225) ! Number of records
character*67 ar__2 ! Full-size record
character*8 IERS_2 ! IAU Name (HHMM+DDd; B1950)
integer*4 Comp_1 ! [1/11] Component ID
real*4 v_S_ ! (Jy) [0.006/7.1] Mean flux density at 8GHz
real*4 v_Rad_ ! (mas) [0.1/21.4] Weighted mean radial separation
* from core
real*4 e__Rad_ ! (mas) [0/0.5] <Rad> uncertainty
integer*4 mu ! (uas/yr) [-193/2964] Proper motion (in {mu}arcsec/yr)
integer*4 e_mu ! (uas/yr) [1/1075] mu uncertainty
real*8 beta ! (c) [-16.4/42.6]? Apparent speed {beta}
* in units of the speed of light
real*4 e_beta ! (c) [0.003/15.5]? beta uncertainty
real*8 t0 ! (yr) ? Ejection time is given for proper motions
* with significance above 3{sigma}
real*4 e_t0 ! (yr) [0.04/19.6]? t0 uncertainty
C=============================================================================
C Loading file 'table2.dat' ! Sources in the RDV (Research & Development - VLBA)
* sample
C Format for file interpretation
1 format(A8,1X,A1,1X,A9,1X,I2,1X,A5,1X,F5.3,1X,A1,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,68
read(1,'(A39)')ar__
read(ar__,1)IERS,f_IERS,OName,Nep,Class,z,MOJ,Fer
if(ar__(31:35) .EQ. '') z = rNULL__
c ..............Just test output...........
write(6,1)IERS,f_IERS,OName,Nep,Class,z,MOJ,Fer
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Gaussian models
C Format for file interpretation
2 format(
+ A8,2X,F6.3,2X,F6.3,2X,F6.1,2X,F6.3,2X,F5.3,2X,F5.1,2X,I1,2X,
+ F7.2,2X,I2,2X,F5.2,2X,F4.2,2X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,8571
read(1,'(A90)')ar__1
read(ar__1,2)
+ IERS_1,S,Rad,PA,a,b_a,PAa,Type,Epoch,Comp,ab,bb,PAb
c ..............Just test output...........
write(6,2)
+ IERS_1,S,Rad,PA,a,b_a,PAa,Type,Epoch,Comp,ab,bb,PAb
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Apparent component speeds from linear fits
C Format for file interpretation
3 format(
+ A8,1X,I2,1X,F5.3,1X,F5.2,1X,F4.2,1X,I4,1X,I4,1X,F7.3,1X,F6.3,
+ 1X,F7.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,225
read(1,'(A67)')ar__2
read(ar__2,3)
+ IERS_2,Comp_1,v_S_,v_Rad_,e__Rad_,mu,e_mu,beta,e_beta,t0,e_t0
if(ar__2(40:46) .EQ. '') beta = rNULL__
if(ar__2(48:53) .EQ. '') e_beta = rNULL__
if(ar__2(55:61) .EQ. '') t0 = rNULL__
if(ar__2(63:67) .EQ. '') e_t0 = rNULL__
c ..............Just test output...........
write(6,3)
+ IERS_2,Comp_1,v_S_,v_Rad_,e__Rad_,mu,e_mu,beta,e_beta,t0,e_t0
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end