5 * Revision 1.1.1.1 1995/10/24 10:20:16 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/03 02/08/94 18.13.20 by S.Ravndal
12 SUBROUTINE GSDK(IPART,BRATIO,MODE)
14 C. ******************************************************************
16 C. * Defines branching ratios and decay modes for standard *
17 C. * GEANT particles. *
19 C. * ==>Called by : <USER>, GPART *
20 C. * Author G.Patrick ********* *
22 C. ******************************************************************
24 #include "geant321/gcbank.inc"
25 #include "geant321/gcphys.inc"
26 #include "geant321/gcnum.inc"
27 #include "geant321/gcunit.inc"
31 C. ------------------------------------------------------------------
33 IF (IPART.LE.0) GO TO 99
34 IF (IPART.GT.NPART) GO TO 99
39 IF (JPA.LE.0) GO TO 99
41 C Book decay links and data banks.
45 IF(JDK1+JDK2.NE.0) THEN
49 CALL MZDROP(IXCONS,LQ(JPA-1),' ')
50 CALL MZDROP(IXCONS,LQ(JPA-2),' ')
52 CALL MZBOOK(IXCONS,JDK1,JPA,-1,'PABR',0,0,6,3,0)
54 CALL MZBOOK(IXCONS,JDK2,JPA,-2,'PAMO',0,0,6,2,0)
60 C Store branching ratios & decay modes.
68 10000 FORMAT(' *** GSDK ***: Warning, redefinition of decay ',