[u/mrichter/AliRoot.git] / ISAJET / code / fortop.F

#include "isajet/pilot.h"
      SUBROUTINE FORTOP
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : 
C-     add to force list forced decays for all heavy q particles
C-     if there was a request to force a heavy q decay
C-     Zero IFORCE after use
C-
C-   Created  15-DEC-1989   Serban D. Protopopescu
C-
C    Ver 7.30: Decay top quark rather than hadron, so no longer needed.
C----------------------------------------------------------------------
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#include "isajet/itapes.inc"
#include "isajet/force.inc"
C----------------------------------------------------------------------
      RETURN
      END
Commit	Line	Data
0795afa3	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