5 * Revision 1.1.1.1 1995/10/24 10:21:43 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.24 by S.Giani
14 C. ******************************************************************
16 C. * Store space point VECT in banks JXYZ *
18 C. * ==>Called by : <USER> *
19 C. * Authors R.Brun, F.Carena ********* *
21 C. ******************************************************************
23 #include "geant321/gcbank.inc"
24 #include "geant321/gcnum.inc"
25 #include "geant321/gctrak.inc"
26 #include "geant321/gcpush.inc"
27 #include "geant321/gckine.inc"
29 C. ------------------------------------------------------------------
33 C Create mother bank JXYZ
35 CALL MZBOOK(IXDIV,JXYZ,JXYZ,1,'JXYZ',NCKINE,NCKINE,0,3,0)
41 NPUSH=MAX(10,ITRA-NXYZ)
42 CALL MZPUSH(IXDIV,JXYZ,NPUSH,0,'I')
45 C Create bank to store points for primary track ITRA
49 CALL MZBOOK(IXDIV,JX,JXYZ,-ITRA,'JXYZ',0,0,NCJXYZ,3,0)
54 C Check if there is enough space to store current point
59 CALL MZPUSH(IXDIV,JX,0,NPJXYZ,'I')
61 Q(JX+1)=Q(JX+1)+NPJXYZ
64 IF(NTMULT.NE.IQ(JX))THEN
67 IF(Q(IPOINT).NE.0.) THEN
68 Q(JX+2)=Q(JX+2)+3.*Q(IPOINT)+2.
75 JP=IPOINT+3.*Q(IPOINT)+1.
76 Q(IPOINT)=Q(IPOINT)+1.