Nbody6
 All Files Functions Variables
touch.f
Go to the documentation of this file.
1  SUBROUTINE touch(IPAIR,I1,I2,RCOLL)
2 *
3 *
4 * Collision detector for KS pairs.
5 * --------------------------------
6 *
7  include 'common6.h'
8 *
9 *
10  WRITE (6,1) name(i1), name(i2), kstar(i1), kstar(i2),
11  & radius(i1), radius(i2), rcoll, r(ipair), h(ipair)
12  1 FORMAT (' KS COLL NAM K* R* RC R H ',2i6,2i4,1p,5e10.2)
13 *
14 * Set zero radii for binary components to avoid repeated events.
15  IF (h(ipair).LT.0.0) THEN
16  radius(i1) = 0.0
17  radius(i2) = 0.0
18  END IF
19 *
20  ncoll = ncoll + 1
21 *
22  RETURN
23 *
24  END