touch.f

Go to the documentation of this file.

      SUBROUTINE touch(IPAIR,I1,I2,RCOLL)
*
*
*       Collision detector for KS pairs.
*       --------------------------------
*
      include 'common6.h'
*
*
      WRITE (6,1)  name(i1), name(i2), kstar(i1), kstar(i2),
     &             radius(i1), radius(i2), rcoll, r(ipair), h(ipair)
    1 FORMAT (' KS COLL    NAM K* R* RC R H ',2i6,2i4,1p,5e10.2)
*
*       Set zero radii for binary components to avoid repeated events.
      IF (h(ipair).LT.0.0) THEN
          radius(i1) = 0.0
          radius(i2) = 0.0
      END IF
*
      ncoll = ncoll + 1
*
      RETURN
*
      END