ISAJET/code/fortop.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE FORTOP
   3 C----------------------------------------------------------------------
   4 C-
   5 C-   Purpose and Methods :
   6 C-     add to force list forced decays for all heavy q particles
   7 C-     if there was a request to force a heavy q decay
   8 C-     Zero IFORCE after use
   9 C-
  10 C-   Created  15-DEC-1989   Serban D. Protopopescu
  11 C-
  12 C    Ver 7.30: Decay top quark rather than hadron, so no longer needed.
  13 C----------------------------------------------------------------------
  14 #if defined(CERNLIB_IMPNONE)
  15       IMPLICIT NONE
  16 #endif
  17 #include "isajet/itapes.inc"
  18 #include "isajet/force.inc"
  19 C----------------------------------------------------------------------
  20       RETURN
  21       END