|
Nbody6
|
Go to the source code of this file.
Functions | |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | KZ (50) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NEW2 (8) COMMON/PARAMS/ETAI |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | BE (3) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | CMR (4) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | CMRDOT (4) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | E (12) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TIDAL (4) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | RDENS (3) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ORBITS (9) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | GPRINT (9) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TLASTB (9) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | SCOEFF (12) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DUMMY (97) COMMON/COUNTS/NSTEPI |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NOFL (2) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NPOP (10) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NDUMMY (98) COMMON/PLPOT/MP |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | PLDUM (4) COMMON/BLOCKS/TPREV |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DTK (40) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | KVEC (2 *KMAX) COMMON/STARS/EPOCH0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZPARS (20) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | ITYPE (5) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | KSAVE (4) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | KTYPE (0:14, 0:14) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NGDUM (7) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | LISTR (MLR) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | LISTD (MLD) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | LISTV (MLV) COMMON/NBODY/X(3 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | X0 (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | X0DOT (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | F (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | FDOT (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | BODY (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RS (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | XDOT (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | FI (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | D1 (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | D2 (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | D3 (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | FR (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | D1R (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | D2R (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | D3R (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | STEP (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | T0 (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | STEPR (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | T0R (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | TNEW (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RADIUS (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TEV (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TEV0 (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | BODY0 (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | EPOCH (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | SPIN (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | XSTAR (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | ZLMSTY (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | FIDOT (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | D0 (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | FRDOT (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | D0R (3, NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | KSTAR (NMAX)*COMMON/PAIRS/U(4 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | U0 (4, KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | UDOT (4, KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | FU (4, KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | FUDOT (4, KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | FUDOT2 (4, KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | FUDOT3 (4, KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | H (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | HDOT (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | HDOT2 (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | HDOT3 (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | HDOT4 (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DTAU (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TDOT2 (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TDOT3 (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | R (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | R0 (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | GAMMA (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | SF (7, KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | H0 (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | FP0 (4, KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | FD0 (4, KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | KBLIST (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | KSLOW (KMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NAME (NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | LIST (LMAX, NMAX)*COMMON/LISTS/ILIST(NMAX) |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | JLIST (NMAX) |
Variables | |
| *common6 **INCLUDE params h IMPLICIT REAL *A | H |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL * | MP |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL | MP0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NTOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NPAIRS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NTTOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | N |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NNBMAX |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NCRIT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NFIX |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NMERGE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSUB |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | IPHASE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | IFIRST |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ICOMP |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | JCOMP |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ICLOSE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | JCLOSE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | JCMAX |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | KSPAIR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NRUN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | MODEL |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NZERO |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBZERO |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBIN0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NHI0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NAME0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NCH |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NCHAOS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | IDUM1 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NNBOPT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ETAR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DTADJ |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DELTAT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TCRIT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | QE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RBAR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZMBAR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | DTMIN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RMIN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ETAU |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | CMSEP2 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ECLOSE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | GMIN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | GMAX |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ETA0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | TWOPI |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ONE3 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ONE6 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ONE9 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ONE12 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TCR0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TRH |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | BODYM |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | BODY1 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | SMIN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RMIN2 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RMIN22 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | STEPJ |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ALPHA |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZNBMIN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZNBMAX |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | EBH |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | TIME |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TADJ |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TNEXT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | CPU |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | CPU0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | CPUTOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZMASS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RSCALE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TCR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | TRC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZKIN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | POT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | EBIN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | EBIN0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | ESUB |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | EMERGE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ECOLL |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | EDISS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ESYNC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ERROR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ERRTOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | DETOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ETCORR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | AZ |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | PCRIT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | EBCH0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RTIDE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TSCALE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | HT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ETIDE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | EGRAV |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RSFAC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RSPH2 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RC2 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RC2IN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | VC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZMC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RHOD |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RHOM |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RSMIN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RMAX |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DMIN1 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DMIN2 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DMIN3 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | DMIN4 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DMINC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | SBCOLL |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | BBCOLL |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | CHCOLL |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DELTAS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TLASTT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TLASTS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TDUMP |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TOFF |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TTOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | EBESC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | EMESC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ESESC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | CLIGHT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | RZ |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TINY |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | SMAX |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | WTOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | WTOT0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | VRMS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSTEPR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSTEPU |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NNPRED |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBCORR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBFULL |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBVOID |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NNTB |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBSMIN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NLSMIN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBDIS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBDIS2 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NCMDER |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBDER |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NFAST |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBFAST |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBLOCK |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBPRED |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NICONV |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NCHAIN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSTEPC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NKSTRY |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NKSREG |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NKSHYP |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NKSPER |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NPRECT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NEWKS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NKSMOD |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NTTRY |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NTRIP |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NQUAD |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NMERG |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSTEPT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSTEPQ |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NDISS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NTIDE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NCOLL |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSYNC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSESC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBESC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NMESC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NTIMER |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSTEPS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NPRINT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NDUMP |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBPREV |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NEWHI |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSTEPB |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBFLUX |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NMTRY |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NWARN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NIRECT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NURECT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBRECT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NRRECT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | KSMAG |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NBLCKR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBMAX |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | AP2 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | VIR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | MPDOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TDELAY |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RTIDE0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | QVIR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TBLOCK |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZMRG |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZMHE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZMRS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZMWD |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZMSN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZMNH |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZMBH |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZMDOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | AU |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | PC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | GM |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DAYS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | YRS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | SU |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | SMU |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | RAU |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TSTAR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | VSTAR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | STEPX |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | TMDOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TPHYS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TURN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | EMDOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ECDOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | EKICK |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TPLOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DTPLOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | XHYD |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | YHEL |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | ZMET |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | SPNFAC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | IQCOLL |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NAS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBH |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NBKICK |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBRK |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NCHA |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NCIRC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NCOAL |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NCONT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NDD |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NEMOD |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NGB |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NGLOB |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NGLOB0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NHE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NHG |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NHI |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NHYP |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NKICK |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NMDOT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NMS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NNH |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NRG |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NRO |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NROCHE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NRS |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NRSAVE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSHOCK |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | NSLP |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSN |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSP |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSPIR |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | INSTAB |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NTZ |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NWD |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NCE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NHYPC |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NBH0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NEINT |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | IBLUE |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES & | ITAIL0 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NTAIL |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NTDUM |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NSTAIL |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | N1 |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | NMAX |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | KMAX |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | TBLIST |
| *common6 **INCLUDE params h IMPLICIT REAL *A O Z REAL MPDOT *COMMON NAMES | DTB |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES BE | ( | 3 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES CMR | ( | 4 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES CMRDOT | ( | 4 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES DTK | ( | 40 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES DUMMY | ( | 97 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES E | ( | 12 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & GPRINT | ( | 9 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & ITYPE | ( | 5 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES KSAVE | ( | 4 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES KTYPE | ( | 0:14 | , |
| 0:14 | |||
| ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES KVEC | ( | 2 * | KMAX | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES KZ | ( | 50 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES LISTD | ( | MLD | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & LISTR | ( | MLR | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES LISTV | ( | MLV | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NDUMMY | ( | 98 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NEW2 | ( | 8 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NGDUM | ( | 7 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NOFL | ( | 2 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NPOP | ( | 10 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ORBITS | ( | 9 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES PLDUM | ( | 4 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & RDENS | ( | 3 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & SCOEFF | ( | 12 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TIDAL | ( | 4 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TLASTB | ( | 9 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZPARS | ( | 20 | ) |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ALPHA |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES AP2 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & AU |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES AZ |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES BBCOLL |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES BODY1 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES BODYM |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES CHCOLL |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES CLIGHT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES CMSEP2 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES CPU |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES CPU0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES CPUTOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES DAYS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES DELTAS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES DELTAT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & DETOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES DMIN1 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES DMIN2 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES DMIN3 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & DMIN4 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES DMINC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES DTADJ |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES DTB |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & DTMIN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES DTPLOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES EBCH0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES EBESC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES EBH |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES EBIN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES EBIN0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ECDOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ECLOSE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ECOLL |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES EDISS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES EGRAV |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES EKICK |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES EMDOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES EMERGE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES EMESC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ERROR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ERRTOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ESESC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & ESUB |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ESYNC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ETA0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ETAR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ETAU |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ETCORR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ETIDE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES GM |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES GMAX |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES GMIN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & HT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES IBLUE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ICLOSE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ICOMP |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES IDUM1 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES IFIRST |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES INSTAB |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & IPHASE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES IQCOLL |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & ITAIL0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES JCLOSE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES JCMAX |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES JCOMP |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES KMAX |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES KSMAG |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & KSPAIR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES MODEL |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES MP0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES MPDOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES N |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES N1 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NAME0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NAS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBCORR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBDER |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBDIS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBDIS2 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBESC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBFAST |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBFLUX |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBFULL |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBH |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBH0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBIN0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NBKICK |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NBLCKR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBLOCK |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBMAX |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBPRED |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBPREV |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBRECT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBRK |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBSMIN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBVOID |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NBZERO |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NCE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NCH |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NCHA |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NCHAIN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NCHAOS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NCIRC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NCMDER |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NCOAL |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NCOLL |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NCONT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NCRIT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NDD |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NDISS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NDUMP |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NEINT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NEMOD |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NEWHI |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NEWKS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NFAST |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NFIX |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NGB |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NGLOB |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NGLOB0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NHE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NHG |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NHI |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NHI0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NHYP |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NHYPC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NICONV |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NIRECT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NKICK |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NKSHYP |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NKSMOD |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NKSPER |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NKSREG |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NKSTRY |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NLSMIN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NMAX |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NMDOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NMERG |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NMERGE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NMESC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NMS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NMTRY |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NNBMAX |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NNBOPT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NNH |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NNPRED |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NNTB |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NPAIRS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NPRECT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NPRINT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NQUAD |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NRG |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NRO |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NROCHE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NRRECT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NRS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NRSAVE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NRUN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSESC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSHOCK |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NSLP |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSP |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSPIR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSTAIL |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSTEPB |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSTEPC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSTEPQ |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSTEPR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSTEPS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSTEPT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSTEPU |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSUB |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NSYNC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NTAIL |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NTDUM |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NTIDE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NTIMER |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NTOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NTRIP |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NTTOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & NTTRY |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NTZ |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NURECT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NWARN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NWD |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES NZERO |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ONE12 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ONE3 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ONE6 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ONE9 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES PC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES PCRIT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES POT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES QE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES QVIR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RAU |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RBAR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RC2 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RC2IN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RHOD |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RHOM |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RMAX |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RMIN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RMIN2 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RMIN22 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RSCALE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RSFAC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RSMIN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RSPH2 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RTIDE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES RTIDE0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & RZ |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES SBCOLL |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES SMAX |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & SMIN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES SMU |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES SPNFAC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES STEPJ |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES STEPX |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES SU |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TADJ |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TBLIST |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TBLOCK |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TCR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TCR0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TCRIT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TDELAY |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TDUMP |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & TIME |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TINY |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TLASTS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TLASTT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & TMDOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TNEXT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TOFF |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TPHYS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TPLOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & TRC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TRH |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TSCALE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TSTAR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TTOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES TURN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & TWOPI |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES VC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES VIR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES VRMS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES VSTAR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES WTOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES WTOT0 |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES & XHYD |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES YHEL |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES YRS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZKIN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZMASS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZMBAR |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZMBH |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZMC |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZMDOT |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZMET |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZMHE |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZMNH |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZMRG |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZMRS |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZMSN |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZMWD |
| * common6* * INCLUDE params h IMPLICIT REAL* A O Z REAL MPDOT* COMMON NAMES ZNBMAX |