jct(40) = 0 no angle output for optical observatories
jct(40).ne.0 such tape output on data set iabs(jct(30))
in format compatable with data general nova computer
jct(40).gt.0 printout of angles, data set jct(40) used as intermediate
ebcdic buffer
jct(40).le.0 no printout of angles
jct(41) = 0 angle output referred to true equinox and equator of date
for jct(40) output
jct(41).gt.0 angle output referred to mean equinox and equator of
jct(41). for eample, jct(41)=76 denotes output referred
to mean equinox and equator of 1976.0
jct(42) = 0 no refraction correction made in computing jct(40) angles
jct(42) = 1 refraction correction made in computing jct(42) angles
jct(43) =   file number for jct(40) angle output (0 is file 1, 1 is
file 2, etc, for data general nova control word at end of
514 character record)
jct(47) = 0 usual jct(40) print and tape output
jct(47) > 0 jct(40) tape output has satellite radius instead
of doppler rate, print output has special les-8/9
format with 6 frequency doppler
jct(47) = 8 les-8 output
jct(47) = 9 les-9 output

jct(30) = 0 no e,f,g (+edot,fdot,gdot) tape output
earth centered rotating coordinates. e in true equator of
date towards greenwich meridian, g to north, f completes
right hand system
jct(30).ne.0 such tape output on data set iabs(jct(30))
unless jct(40) says there is angle output instead
.lt.0 no frintout of e,f,g
.gt.0 printout of e,f,g at end of dummy observation series
jct(31) = space defense center satellite number for e,f,g output
jct(32) = 0 no binary e,f,g output in subroutine efgout for fitting
polynomials in subroutine efgfit
jct(32).ne.0 such binary output on data set iabs(jct(32)) if
jct(30).ne.0
.gt.0 jct(30) output with jct(32) output
.lt.0 jct(30) output is supressed