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