kick =1 subroutine radar is calling program
kick =2 subroutine optic is calling program
kick =3 subroutine trnsit is calling program
kick =4 subroutine fermtr is calling program
partl calculates partial derivatives of observations with
respect to parameters to be adjusted

the following vectors control calculation of the following
partial derivatives
lprm(100),mprm(100)   solar system parameters in /param/
lem(30),mem(30)       earth-moon barycenter initial
conditions and earth parameters from
/empcnd/
lpl(30),mpl(30)       planet initial conditions and
parameters from /empcnd/ for given
value of klan
the m-vectors control which partial derivatives exist in
real*10 vired(296,2) vector
the l-vectors control which partial derivatives will be put
into real*8 deriv(296,2) vector.
every partial in vired exists in deriv.
every partial in deriv which exists in vired (except for
planet shape parameters) is transferred from vired to deriv.
every partial in deriv which is not transferred from vired
is calculated.
kind is counter for deriv, mind is counter for vired.
vired(mind,i) = partial derivitive number mind of
measurement i
deriv(kind,i) = partial derivative number kind of
measurement i
i=1    time delay or right ascension
i=2    doppler shift or declination

*  start=2100
partial derivatives w.r.t.radio or interferometer clock
corrections
jct(59)=0  eqnx are terms added to observable
jct(59)=1  eqnx are true clock terms