sbfn1 - nicolob/pep-full GitHub Wiki

sbfn1

Type: subroutine

Defined in: sbfn1.f

Definition: subroutine SBFN1(k)

Author: ash/amuchastegui

Created: June 1969

Revision History

  • revised 1977 april - j.f.chandler

Description

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

Included Files

  • 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

Arguments

  • k

Calls

  • ertorb
  • monorb
  • newpgt
  • plnorb
  • plnsat
  • prodct
  • solprb

Called By

  • ...

Notes

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