Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gcons / gsdk.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:20:16 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/03 02/08/94 18.13.20 by S.Ravndal
11*-- Author :
12 SUBROUTINE GSDK(IPART,BRATIO,MODE)
13C.
14C. ******************************************************************
15C. * *
16C. * Defines branching ratios and decay modes for standard *
17C. * GEANT particles. *
18C. * *
19C. * ==>Called by : <USER>, GPART *
20C. * Author G.Patrick ********* *
21C. * *
22C. ******************************************************************
23C.
24#include "geant321/gcbank.inc"
25#include "geant321/gcphys.inc"
26#include "geant321/gcnum.inc"
27#include "geant321/gcunit.inc"
28 DIMENSION BRATIO(6)
29 DIMENSION MODE(6)
30C.
31C. ------------------------------------------------------------------
32C.
33 IF (IPART.LE.0) GO TO 99
34 IF (IPART.GT.NPART) GO TO 99
35C
36C Particle pointer.
37C
38 JPA = LQ(JPART-IPART)
39 IF (JPA.LE.0) GO TO 99
40C
41C Book decay links and data banks.
42C
43 JDK1=LQ(JPA-1)
44 JDK2=LQ(JPA-2)
45 IF(JDK1+JDK2.NE.0) THEN
46 WRITE(CHMAIL, 10000)
47 CALL GMAIL(1,0)
48 CALL GPPART(IPART)
49 CALL MZDROP(IXCONS,LQ(JPA-1),' ')
50 CALL MZDROP(IXCONS,LQ(JPA-2),' ')
51 ENDIF
52 CALL MZBOOK(IXCONS,JDK1,JPA,-1,'PABR',0,0,6,3,0)
53 JPA=LQ(JPART-IPART)
54 CALL MZBOOK(IXCONS,JDK2,JPA,-2,'PAMO',0,0,6,2,0)
55 JPA=LQ(JPART-IPART)
56 JDK1=LQ(JPA-1)
57 IQ(JDK1-5)=IPART
58 IQ(JDK2-5)=IPART
59C
60C Store branching ratios & decay modes.
61C
62 DO 20 I=1,6
63 Q(JDK1+I) = BRATIO(I)
64 IQ(JDK2+I) = MODE(I)
65 20 CONTINUE
66C
67 99 RETURN
6810000 FORMAT(' *** GSDK ***: Warning, redefinition of decay ',
69 + 'for particle:')
70 END