rbsred - nicolob/pep-full GitHub Wiki

rbsred

Type: subroutine

Defined in: rbsred.f

Definition: subroutine RBSRED(in0,nstop,init)

Revision History

  • modified for *command july 1978 r.b. goldstein

Description

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

Included Files

  • globdefs.inc
  • inodta.inc
  • namtim.inc
  • rdbias.inc

Arguments

  • in0
  • nstop
  • init

Calls

Called By

  • ...

Notes

  • ...
⚠️ **GitHub.com Fallback** ⚠️