/Docs/nbody6.tex

http://github.com/mtrenti/NBODY6 · LaTeX · 273 lines · 273 code · 0 blank · 0 comment · 0 complexity · 7a57d8e0dbf60ce1a7657119439d8eb1 MD5 · raw file

  1. \magnification=1200
  2. \nopagenumbers
  3. \hsize=6.0truein
  4. \vsize=9.0truein
  5. \font\big=cmr10 scaled \magstep1
  6. \noindent
  7. \centerline { NBODY6 ROUTINES}
  8. \bigskip
  9. \settabs\+&XXXXXXXx&xXXXXXXXXXXXXX&XXXXXXX \cr
  10. \+&Routine &Called by &Description \cr
  11. \medskip
  12. \hrule
  13. \medskip
  14. \+&ADJUST &NBODY6 &Parameter adjustment \& energy check. \cr
  15. \+&ASSESS &KSINT &Assessment of hierarchical stability. \cr
  16. \+&BINDAT &OUTPUT &Binary data bank on unit 9 (option 8 $>=$ 3). \cr
  17. \+&BINEV &CHAOS \& MDOT &Stages of binary evolution (also COAL). \cr
  18. \+&BINOUT &OUTPUT &Binary analysis \& output (\#8 $>$ 0). \cr
  19. \+&BINPOP &DATA &Initial binary distribution (\#8). \cr
  20. \+&BLOCK & &Block data initialization of local labelled COMMON. \cr
  21. \+&BODIES &OUTPUT &Output of single particles \& binaries (\#9 \& \#6). \cr
  22. \+&BRAKE &UNPERT &Magnetic braking and gravitational radiation (\#28). \cr
  23. \+&BRAKE2 &MDOT &Gravitational radiation of hierarchical binary. \cr
  24. \+&BSETID &MDOT \& ROCHE &Tidal synchronization for circular orbits (\#34). \cr
  25. \+&CHAOS0 &CHAOS \& CHRECT &Initial chaos boundary (\#27; also HIGROW). \cr
  26. \+&CHAOS &KSTIDE &Chaotic tidal interactions (\#27). \cr
  27. \+&CHECK &ADJUST &Error check \& restart (\#2 \& \#17). \cr
  28. \+&CHECKL &REGINT &Addition of neighbours during regular step (\#18). \cr
  29. \+&CHRECT &KSINT \& MDOT &Rectification of chaotic orbits (\#27; also DECIDE). \cr
  30. \+&CLINT &INTGRT &Integration of interstellar cloud (\#13). \cr
  31. \+&CLOUD0 &START &Initialization of cloud parameters (\#13). \cr
  32. \+&CLOUD &CLOUD0 \& NBINT &Generation of interstellar cloud (\#13). \cr
  33. \+&CMBODY &KSINT \& TRIPLE &Formation of c.m. body by collision (also CHAIN). \cr
  34. \+&CMCORR &ADJUST &Correction of c.m. coordinates \& velocities (\#31). \cr
  35. \+&CMFIRR &NBINT &Irregular force on c.m. particle. \cr
  36. \+&CMFREG &REGINT &Regular \& irregular force on c.m. particle. \cr
  37. \+&COAL &EXPEL \& EXPEL2 &Coalescence of Roche or CE binary (\#34). \cr
  38. \+&COMENV &ROCHE \& EXPEL &Common envelope evolution (\#34 \& \#19). \cr
  39. \+&CORE &ADJUST \& OUTPUT &Density centre \& core radius. \cr
  40. \+&CORERD &DGCORE \& SYNCH &Core radius of giant (\#19; also SPIRAL). \cr
  41. \+&CPUTIM &ADJUST \& INTGRT &Elapsed CPU time in minutes (initialized in NBODY6). \cr
  42. \+&DATA &START &Generation of initial conditions. \cr
  43. \+&DECIDE &IMPACT &Hierarchical stability decisions. \cr
  44. \+&DEFINE &INPUT &Definition of input parameters, options \& counters. \cr
  45. \+&DEFORM &IMPACT \& ROCHE &Deformation of elliptic orbits (also SYNCH). \cr
  46. \+&DEGEN &MDOT \& ROCHE &Degenerate binary diagnostics (\#19; also CMBODY). \cr
  47. \+&DELAY &IMPACT \& INTGRT &Delay of multiple reqularization \& merger (\#15). \cr
  48. \+&DGCORE &COMENV &Collision or coalescence of two degenerate cores (\#34). \cr
  49. \+&DTCHCK &CMBODY \& COAL &Maximum commensurate step for activating ghosts. \cr
  50. \+&ECCMOD &KSINT &Eccentricity modulation of hierarchical binary (\#27). \cr
  51. \+&ECIRC &DECIDE &Eccentricity for a given circularization time (\#27). \cr
  52. \+&EDOT &DECIDE &Eccentricity derivative due to dominant perturber (\#27). \cr
  53. \+&EFAC2 &TIDES &Tidal capture efficiency factor for second harmonic. \cr
  54. \+&EFAC3 &TIDES &Tidal capture efficiency factor for third harmonic. \cr
  55. \+&ENERGY &ADJUST \& SCALE &Total energy (including binaries \& tidal field). \cr
  56. \+&ESCAPE &ADJUST &Removal of escaping particles (\#23). \cr
  57. \+&EVENTS &OUTPUT &Output of mass loss \& tidal capture events (\#19 \& 27). \cr
  58. \+&EVOLVE &INTGRT \& KSINT &Diagnostic output of interacting binaries (\#4; unused). \cr
  59. \+&EXPAND &HCORR &Expansion or contraction of KS orbit (\#19). \cr
  60. \+&EXPEL &CMBODY \& SPIRAL &Preparation for common envelope stage (\#19). \cr
  61. \+&FCLOSE &CMBODY \& RESET &Force \& first derivative of close bodies (START3 \& 4). \cr
  62. \+&FCLOUD &REGINT \& FPOLY1 &Force \& derivative from interstellar clouds (\#13). \cr
  63. \+&FCORR &MDOT &Global corrections for mass loss from evolving stars. \cr
  64. \+&FDISK &XTRNLF \& GCINT &Tidal force due to Miyamoto disk (\#14 = 3). \cr
  65. \+&FHALO &XTRNLF \& GCINT &Tidal force due to logarithmic halo (\#14 = 3). \cr
  66. \+&FICORR &MDOT &Local corrections due to mass loss. \cr
  67. \+&FINDJ &BINDAT \& HRPLOT &Find merger and ghost index (also MDOT). \cr
  68. \+&FINDM &NEWTEV &Find ghost mass. \cr
  69. \+&FLYBY &KSINT &Termination check of perturbed KS orbit. \cr
  70. \+&FNUC &XTRNLF \& GCINT &Tidal force due to point-mass (\#14 = 3). \cr
  71. \+&FPCORR &REGINT &Force polynomial derivative corrections (\#38). \cr
  72. \+&FPERT &SEARCH \& IMPACT &Perturbing force on dominant components. \cr
  73. \+&FPOLY1 &START \& KSINIT &Total force \& first derivative (also START3 \& 4). \cr
  74. \+&FPOLY2 &START \& KSINIT &Second \& third force derivatives (also START3 \& 4). \cr
  75. \+&FREEZE &KSINT &Partial reflection of KS orbit (\#25; suppressed). \cr
  76. \+&GCINIT &XTRNL0 &Initialization of guiding centre orbit (\#14 = 3). \cr
  77. \+&GCINT &INTGRT &Integration of guiding centre (\#14 = 3). \cr
  78. \+&GIANT &CHAOS \& SYNCH &Structure constants of giant star (\#19; also TCIRC). \cr
  79. \+&GIANT3 &HIGROW \& QTIDES &Structure constants of giant star (\#19 \& 27). \cr
  80. \+&GNTAGE &CMBODY &Age of giant star. \cr
  81. \+&GRRAD &MDOT \& ROCHE &Gravitational radiation for close binary (\#19). \cr
  82. \+&HCORR &MDOT &Mass loss correction of KS orbit (\#19). \cr
  83. \+&HIARCH &MERGE \& RESET &Diagnostics of hierarchical systems (\#18; also ESCAPE). \cr
  84. \+&HICIRC &ECCMOD \& HIGROW &Eccentricity for given $T_{circ}$ in hierarchy (\#27). \cr
  85. \+&HIDAT &OUTPUT &Hierarchical data bank on unit \#87 (\#8 $>$ 3). \cr
  86. \+&HIGROW &ECCMOD &Induced change of hierarchical binary (\#27). \cr
  87. \+&HIMAX &HIDAT &Maximum eccentricity of hierarchy. \cr
  88. \+&HIMOD &HIGROW &Modification of hierarchical binary (\#27). \cr
  89. \+&HIPOP &START &Primordial hierarchical triples (\#18 = 2). \cr
  90. \+&HIRECT &HIGROW \& BRAKE2 &Rectification of hierarchical binary (\#27). \cr
  91. \+&HISTAB &UNPERT &Hierarchical stability criterion (MA99). \cr
  92. \+&HIVEL &INTGRT &High-velocity particle search (\# 37 $>$ 0). \cr
  93. \+&HMDOT &MDOT &Mass loss from inner hierarchical binary (\#19). \cr
  94. \+&HMDOT2 &MDOT &Mass loss from outer hierarchical binary (\#19). \cr
  95. \+&HOTSYS &START &Hot initial system (\#29; suppressed). \cr
  96. \+&HRDIAG &INSTAR \& MDOT &H-R parameters for stellar evolution (\#19 \& 27). \cr
  97. \+&HRPLOT &OUTPUT &HR diagram of evolving stars (\#12). \cr
  98. \+&HUT &SPIRAL &Evolution equations for eccentricity and spin (\#27). \cr
  99. \+&HUT2 &SYNCH &Spin evolution of circular binary (\#27). \cr
  100. \+&IBLOCK &START &Initialization of hierarchical block-steps (40 levels). \cr
  101. \+&IMF &DATA &Initial mass function (\#20 = 1; iteration method). \cr
  102. \+&IMF2 &DATA &Initial mass function (\#20 $>$ 1; binaries \& singles). \cr
  103. \+&IMFBD &IMF2 &IMF with brown dwarfs (\#20 = 6; Pavel Kroupa version). \cr
  104. \+&IMPACT &KSINT \& UNPERT &Search for multiple encounters or merger (\#15). \cr
  105. \+&INDUCE &IMPACT \& KSTIDE &Induced eccentricity of hierarchical binary (\#27). \cr
  106. \+&INEXT &INTGRT &Determination of next particles. \cr
  107. \+&INPUT &START &Main input. \cr
  108. \+&INSERT &SUBINT &Insertion of particle index in KS time-step list. \cr
  109. \+&INSTAR &START &Initialization of stellar evolution parameters (\#19). \cr
  110. \+&INTGRT &NBODY6 &Decision-making \& control of integration paths. \cr
  111. \+&INTIDE &START &Input \& scaling for tidal capture (\#27; suppressed). \cr
  112. \+&JACOBI &OUTPUT &Current escaper number (with or without tidal field). \cr
  113. \+&KEPLER &NBINT &Step reduction of binary c.m. \& close perturber (\#36). \cr
  114. \+&KICK &KSAPO \& FCORR &Velocity kick for neutron stars (\#19). \cr
  115. \+&KICK2 &ROCHE &Velocity kick for Roche NS \& BH stars (\#34). \cr
  116. \+&KSAPO &UNPERT &Transformation of KS variables by PI/2 or at random. \cr
  117. \+&KSCORR &KSINT &Stumpff corrector for KS regularization. \cr
  118. \+&KSIN2 &MERGE2 \& RESET2 &Initialization of hierarchical KS. \cr
  119. \+&KSINIT &KSREG &Initialization of KS regularization. \cr
  120. \+&KSINT &INTGRT &Regularized two-body integration. \cr
  121. \+&KSLIST &KSINT \& RESET &Selection of KS perturbers (also KSINIT \& KSTIDE). \cr
  122. \+&KSMOD &KSINT &KS motion modified by slow-down (\#26). \cr
  123. \+&KSPERI &KSINT \& KSTIDE &KS variables at pericentre. \cr
  124. \+&KSPERT &KSINT &Perturbation on KS pair. \cr
  125. \+&KSPOLY &KSINIT \& KSINT &New KS polynomials (also KSMOD \& RESET). \cr
  126. \+&KSPRED &KSINT &Prediction for KS regularization. \cr
  127. \+&KSRECT &KSTERM &Rectification of KS variables to correct energy. \cr
  128. \+&KSREG &NBODY6 \& MERGE &Preparation of new KS regularization (also RESET). \cr
  129. \+&KSRES &MERGE \& XTPERT &Interpolation \& coordinate transformation of KS pair. \cr
  130. \+&KSRES2 &INTGRT \& CMFIRR &Coordinates \& velocities of KS pair. \cr
  131. \+&KSTERM &NBODY6 \& MERGE &Termination of KS regularization (RESET \& IMPACT). \cr
  132. \+&KSTIDE &KSINT &Tidal interaction of KS pair (\#27). \cr
  133. \+&LAGR &ADJUST \& OUTPUT &Lagrangian radii \& half-mass radius (\#7). \cr
  134. \+&LAGR2 &OUTPUT &Lagrangian \& half-mass radi of two mass groups (\#7 = 6). \cr
  135. \+&LEVELS &OUTPUT &Diagnostic output of block-steps (\#33). \cr
  136. \+&MAGBRK &MDOT \& ROCHE &Spin change due to magnetic braking (\#19, \#34). \cr
  137. \+&MATRIX &KSINIT \& KSPOLY &Levi-Civita matrix (also KSCORR, KSRES2 \& RESOLV). \cr
  138. \+&MDOT &INTGRT &Mass loss from evolving stars (\#19 $>=$ 3). \cr
  139. \+&MERGE &NBODY6 &Merging of hierarchical triple or quadrupole. \cr
  140. \+&MERGE2 &MERGE &Merging of double hierarchy. \cr
  141. \+&MIX &CMBODY &Evolution parameters for mixed star (\#19). \cr
  142. \+&MLOSS &INTGRT &Mass loss from evolving stars (old version; \#19 = 1). \cr
  143. \+&MLWIND &MDOT &Reimers mass loss from stellar wind (\#19 $>=$ 3). \cr
  144. \+&MODIFY &NBODY6 &Modified input parameters at restart. \cr
  145. \+&MRENV &HRDIAG &Mass and radius of convective envelope (\#19). \cr
  146. \+&MTRACE &MDOT &Orbit diagnostics for mass loss (suppressed). \cr
  147. \+&MYDUMP &ADJUST \& INTGRT &COMMON save or restart (also NBODY6; \#1 \& \#2). \cr
  148. \+&NBINT &INTGRT &Irregular integration and corrector. \cr
  149. \+&NBLIST &START &Initialization of neighbour list (also START3 \& 4). \cr
  150. \+&NBODY6 & &Master control flow. \cr
  151. \+&NBPOT &MERGE \& RESET &Potential energy of subsystem (also TRIPLE \& QUAD). \cr
  152. \+&NBREM &MERGE &Ghost removal from neighbour lists (also START3 \& 4). \cr
  153. \+&NBREST &RESET &Restoring ghosts in neighbour lists (also START3 \& 4). \cr
  154. \+&NBSORT &INTGRT &Neighbour list sorting. \cr
  155. \+&NBTIDE &NBINT &Tidal two-body interaction (\#27 $<$ 0; suppressed). \cr
  156. \+&NEWTEV &MERGE2 &Next look-up time for hierarchy (\#19 $>=$ 3). \cr
  157. \+&NSTAB &IMPACT &Three-body stability criterion (also ASSESS \& RESET2). \cr
  158. \+&NTINT &INTGRT &Integration of single stars in tidal field (\#23). \cr
  159. \+&OFFSET &ADJUST &Offset of global times (\#35). \cr
  160. \+&ORBIT &NBINT &Close encounter search for small eccentricity. \cr
  161. \+&OUTPUT &ADJUST \& INTGRT &Main output \& optional data save. \cr
  162. \+&PERI &KSINT &Pericentre of two-body motion (also TRIPLE \& QUAD). \cr
  163. \+&PERMIT &IMPACT &Decision-making for new triple, quad or chain. \cr
  164. \+&PFAC &HIMAX &Precession factor for hierarchy. \cr
  165. \+&POTI &EXPEL \& MTRACE &Potential of one particle from explicit sum. \cr
  166. \+&PROTO &BINPOP &Pre-main sequence binary evolution (Pavel Kroupa). \cr
  167. \+&QTIDES &HIGROW &Quadrupole and tidal terms for hierarchical binary (\#27). \cr
  168. \+&RAN2 &DATA \& BINPOP &Portable random number generator (also CLOUD). \cr
  169. \+&REFLCT &REGINT &Boundary reflection (\#29; suppressed). \cr
  170. \+&REGINT &INTGRT &Regular integration and corrector. \cr
  171. \+&REMOVE &KSTERM \& ESCAPE &Removal of particle or KS pair from COMMON tables. \cr
  172. \+&RENAME &KSREG &Renaming of COMMON tables for new KS pair. \cr
  173. \+&RESET &NBODY6 &Termination of hierarchical merger. \cr
  174. \+&RESET2 &RESET &Termination of double hierarchy. \cr
  175. \+&RESOLV &ENERGY \& XVPRED &Coordinates \& velocities of KS pair (also KSTERM). \cr
  176. \+&RKINT &HIMOD &Runge-Kutta integrator for tidal interactions (\#27). \cr
  177. \+&RL &ROCHE \& BRAKE2 &Analytical Roche radius relation (\#34). \cr
  178. \+&ROCHE &MDOT &Treatment of Roche-lobe overflow (\#34). \cr
  179. \+&RPMAX &KSINT &Maximum periastron factor for GR capture (\#27). \cr
  180. \+&RPMAX2 &KSINT &Maximum periastron factor for capture (\#27). \cr
  181. \+&RPMIN &KSINT &Minimum distance for given GR energy change (\#27). \cr
  182. \+&SCALE &START &Scaling to new units. \cr
  183. \+&SEARCH &NBINT &Close encounter search for KS regularization. \cr
  184. \+&SETUP &DATA &Initial coordinates \& velocities (\#22 = 0; Plummer). \cr
  185. \+&SETUP2 &DATA &Initial conditions in astrophysical units (\#22 = -1). \cr
  186. \+&SHRINK &INTGRT &Shrinking of regular steps in high-velocity encounters. \cr
  187. \+&SORT1 &LAGR \& IMF2 &Sequential sorting of array (Numerical Recipes). \cr
  188. \+&SPIRAL &CHAOS \& KSINT &Tidal circularization of binary (\#27; also SYNCH). \cr
  189. \+&STABILTY &IMPACT \& HISTAB &Three-body stability criterion (MA 1999). \cr
  190. \+&STAR &INSTAR \& MDOT &Stellar luminosity \& evolution time (also CMBODY). \cr
  191. \+&START &NBODY6 &Initial setup \& force polynomials. \cr
  192. \+&STEPK &STEPS \& NBINT &Selection of block-steps (also in multiple regularizations). \cr
  193. \+&STEPS &FPOLY2 &Initialization of time-steps \& differences. \cr
  194. \+&STUMPF &KSINT \& KSMOD &Modified Stumpff functions (also KSTERM). \cr
  195. \+&SUBINT &INTGRT &Subsystem decision-making (KS, TRIPLE, QUAD, CHAIN). \cr
  196. \+&SWAP &START &Randomized particle swapping (GPU only). \cr
  197. \+&SWEEP &ADJUST &Enforced KS reg of wide binaries (\#8 $>$ 0). \cr
  198. \+&SYNCH &MDOT &Spin synchronization of circularized orbit (\#19). \cr
  199. \+&TAIL0 &ESCAPE &Initialization of tidal tail stars (\#14, \#23). \cr
  200. \+&TCIRC &BINPOP &Pre-main sequence circularization. \cr
  201. \+&TIDES &KSTIDE \& TRIPLE &Tidal energy loss of interacting stars (also QUAD). \cr
  202. \+&TIDES2 &CHAOS &Tidal energy dissipation (\#27). \cr
  203. \+&TIDES3 &KSTIDE &GR tidal energy loss (\#27). \cr
  204. \+&TOUCH &KSINT \& UNPERT &Collision detector for KS pairs (\#27 = -1). \cr
  205. \+&TPERT &KSMOD \& UNPERT &Perturbation time-scale. \cr
  206. \+&TRDOT &MDOT \& ROCHE &Time-scale for radial expansion (\#19; SYNCH). \cr
  207. \+&TRDOT2 &NEWTEV \& ROCHE &Time-scale for evolution changes (\#19). \cr
  208. \+&TRFLOW &KSTIDE \& MDOT &Time until Roche overflow (\#34; ROCHE \& SYNCH). \cr
  209. \+&TSTAB &IMPACT &Hierarchical stability time estimate. \cr
  210. \+&TSTEP &NBINT \& STEPS &Standard time-step expression. \cr
  211. \+&UNITS &START &Initialization of units \& scaling factors. \cr
  212. \+&UNPERT &KSINT &Unperturbed two-body motion (KS regularization). \cr
  213. \+&UPDATE &KSTERM &Modification of COMMON tables after KS termination. \cr
  214. \+&VERIFY &INPUT \& MODIFY &Validation of main input and restart parameters. \cr
  215. \+&XTRNL0 &START &Initialization of external force (\#14 = 1,2,3). \cr
  216. \+&XTRNLD &FPOLY1 \& FPOLY2 &External force and higher derivatives on single particle. \cr
  217. \+&XTRNLF &NBINT &External force \& first derivative on single particle. \cr
  218. \+&XTRNLP &KSINT \& KSPOLY &External perturbation on KS pair. \cr
  219. \+&XTRNLT &NTINT &Galactic force and first derivative (\#14). \cr
  220. \+&XTRNLV &ENERGY \& NBPOT &External potential (also ESCAPE \& BODIES). \cr
  221. \+&XVPRED &ADJUST \& MERGE &Prediction of coordinates \& velocities (also KSINIT). \cr
  222. \+&ZARE &IMPACT &Zare exchange stability criterion for hierarchies. \cr
  223. \+&ZCNSTS &INSTAR \& NBODY6 &Initialization of metallicity parameters for ZFUNCS. \cr
  224. \+&ZDATA &ZCNSTS &Metallicity block data for ZCNSTS. \cr
  225. \+&ZERO &START &Initialization of global scalars. \cr
  226. \+&ZFUNCS &STAR \& HRDIAG &Fitting functions for stellar evolution. \cr
  227. \medskip
  228. \hrule
  229. \bigskip
  230. \bigskip
  231. \vfill\eject
  232. \centerline {Three-body regularization}
  233. \bigskip
  234. \hrule
  235. \medskip
  236. \+&DERQP3 &DIFSY3 &Derivatives for AZ regularization. \cr
  237. \+&DIFSY3 &TRIPLE &Bulirsch-Stoer integrator for AZ. \cr
  238. \+&EREL3 &DERQP3 \& TRIPLE &Dominant two-body energy in triple system. \cr
  239. \+&EXTEND &SUBSYS \& INTGRT &Size of unperturbed triple or quad. \cr
  240. \+&QPMOD3 &TRIPLE &Modification of AZ variables for tidal dissipation. \cr
  241. \+&STABL3 &QPMOD3 \& TRIPLE &Stability test of triple system. \cr
  242. \+&STABLZ &STABL3 &Zare stability criterion for exchange. \cr
  243. \+&START3 &TRIPLE &Initialization \& restart of triple configuration. \cr
  244. \+&SUBSYS &START3 \& START4 &Initialization of subsystem (TRIPLE, QUAD \& CHAIN). \cr
  245. \+&TPERI &DERQP3 \& DERQP4 &Pericentre time for KS motion (also DERQP \& KSINIT). \cr
  246. \+&TRANS3 &TRIPLE &Transformation of physical \& KS variables for AZ. \cr
  247. \+&TRIPLE &NBODY6 \& INTGRT &Main routine for triple regularization. \cr
  248. \medskip
  249. \hrule
  250. \bigskip
  251. \bigskip
  252. \centerline {Four-body regularization}
  253. \bigskip
  254. \hrule
  255. \medskip
  256. \+&DERQP4 &DIFSY4 &Derivatives for four-body chain regularization. \cr
  257. \+&DIFSY4 &QUAD &Bulirsch-Stoer integrator for chain regularization. \cr
  258. \+&ENDREG &QUAD \& RCHAIN &Transformation to physical variables. \cr
  259. \+&EREL4 &DERQP4 \& QUAD &Dominant two-body energy in four-body system. \cr
  260. \+&ICHAIN &STATUS &Determination of regularized chain. \cr
  261. \+&NEWREG &QUAD \& RCHAIN &Initialization of four-body regularization. \cr
  262. \+&NEWSYS &QUAD &Total energy of four-body configuration. \cr
  263. \+&QPMOD4 &QUAD &Modification of quad variables for tidal dissipation. \cr
  264. \+&QUAD &NBODY6 \& INTGRT &Main routine for four-body regularization. \cr
  265. \+&RCHAIN &QUAD &Decision-making for quad regularization. \cr
  266. \+&RSORT &RCHAIN \& STATUS &Sorting of four-body distances. \cr
  267. \+&STABL4 &QPMOD4 &Stability test of four-body system. \cr
  268. \+&START4 &QUAD &Initialization \& restart of four-body configuration. \cr
  269. \+&STATUS &QUAD \& NEWREG &Sorting of square distances \& closest pair indices. \cr
  270. \+&TRANS4 &EREL4 &Transformation to physical momenta. \cr
  271. \medskip
  272. \hrule
  273. \bye