sbfn1 - nicolob/pep-full GitHub Wiki
Type: subroutine
Defined in: sbfn1.f
Definition: subroutine SBFN1(k)
Author: ash/amuchastegui
Created: June 1969
- revised 1977 april - j.f.chandler
ash/amuchastegui - june 1969 - subroutine sbfn1
revised 1977 april - j.f.chandler
evaluate right side of motion and partials
principle of equivalence violation is programmed only for
sun-centered bodies. extra terms would appear otherwise.
effect of perturbing asteroids
if(numast.le.0) goto 2328
do 2327 l=1,numast
if(kpast(l).le.0) goto 2327
eliminate concentric satellites
if(ncnast(l).eq.ncentr) goto 2327
globdefs.inc
cnthar.inc
drgprt.inc
ellips.inc
fcntrl.inc
fmmips.inc
incon.inc
inodta.inc
intstf.inc
mascn1.inc
namtimq.inc
param.inc
petuna.inc
prtcod.inc
rtpars.inc
sbembr.inc
sbrot.inc
sbstuf.inc
sbthng.inc
tapdtplp.inc
trghar.inc
xprcom.inc
yvectplp.inc
k
- ertorb
- monorb
- newpgt
- plnorb
- plnsat
- prodct
- solprb
- ...
- ...