rbsred - nicolob/pep-full GitHub Wiki
Type: subroutine
Defined in: rbsred.f
Definition: subroutine RBSRED(in0,nstop,init)
- modified for *command july 1978 r.b. goldstein
setup and read quantities into temporary storage, then
rearrange into labelled common,such that corrections to a given
planet are grouped together. the order of the planets is as
follows
for j=1,...,numrbs we have
rdbsit(1,j)=first four characters of 8 character receiving site name
rdbsit(2,j)=first four characters of 8 character sending site name
rdbser(j) =four character observation series name
nplrbs(j) =planet number of observed body
rbias(1,j) =constant bias in time delay (sec)
rbias(2,j) =constant bias in doppler shift(cyc/sec)
lrbs(i,j)=0 rbias(i,j) not adjusted, i=1,2
lrbs(i,j)=1 rbias(i,j) adjusted, i=1,2
vi. radar biases (rbsred)
for each radar site and observation series
columns
1- 4 receiving site name first 4 characters (1a4)
6- 9 sending site name first 4 characters (1a4)
11-14 observation series name (1a4)
15-17 planet number (i3)
22-23 lrbs=1,0 time delay bias adjusted or not (i2)
24-25 lrbs=1,0 doppler bias adjusted or not (i2)
26-27 flag, if '##' then use new format, otherwise not
26-37 radar bias in time delay (e12.5)
or 28-41 (e14.7) ##
38-49 radar bias in doppler (e12.5)
or 42-53 (e14.7) ##
limitation no more than u_mxrbs radar sites with biases allowed
globdefs.inc
inodta.inc
namtim.inc
rdbias.inc
in0
nstop
init
- ...
- ...