5 * Revision 1.1.1.1 1995/10/24 10:20:23 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani
12 SUBROUTINE GDPART(IT,ISEL,SIZE)
14 C. ******************************************************************
16 C. * Draws attributes of particle generating track IT *
17 C. * (for which space points have been stored in banks JXYZ). *
18 C. * IT=0 means all tracks. *
20 C. * If ISEL=xxxxxx1 then draw track number; *
21 C. * if ISEL=xxxxx1x then draw particle name. *
23 C. * SIZE is character size used. *
25 C. * ==>Called by : <USER>, <GXINT> *
26 C. * Author : P.Zanarini ********* *
28 C. ******************************************************************
30 #include "geant321/gcbank.inc"
31 #include "geant321/gcdraw.inc"
32 CHARACTER*4 IPTAB(100),IPTAB1(100),IPTAB2(100)
35 SAVE IPTAB,IPTAB1,IPTAB2
37 DATA IPTAB /'<[G$','<E>[','<E>[','<[N$','<[M>','<[M>','<[P>',
38 + '<[P>','<[P>','K?L&','K[^+','K[^-','<N$ ','<P$ ',
39 + '<-P$','K?<S','<[C$','[L$ ','[S^+','[S^0','[S^-',
40 + '[X^0','[X^-','[W^-','<-N$','<->[','<->[','<->[',
41 + '<->[','<->[','<->[','<->[','<[T>','<[T>','D[^+',
42 + 'D[^-','D[^0','<->D','F[^+','F[^-','[L]?','W[^+',
43 + 'W[^-','Z[^0','D$ ','T$ ','<[A$','G$ ',
45 DATA IPTAB1/' ','^+$ ','^-$ ',' ','^+$ ','^-$ ','^0$ ',
46 + '^+$ ','^-$ ','[^0$','$ ','$ ',' ',' ',
47 + ' ','>&[^',' ',' ','$ ','$ ','$ ',
48 + '$ ','$ ','$ ',' ','L$ ','S^-$','S^0$',
49 + 'S^+$','X^0$','X^+$','W^+$','^+$ ','^-$ ','$ ',
50 + '$ ','$ ','[^0$','$ ','$ ','C&[^','$ ',
51 + '$ ','$ ',' ',' ',' ',' ',
53 DATA IPTAB2/' ',' ',' ',' ',' ',' ',' ',
54 + ' ',' ','L ',' ',' ',' ',' ',
55 + ' ','0$ ',' ',' ',' ',' ',' ',
56 + ' ',' ',' ',' ',' ',' ',' ',
57 + ' ',' ',' ',' ',' ',' ',' ',
58 + ' ',' ',' ',' ',' ','+$ ',' ',
59 + ' ',' ',' ',' ',' ',' ',
62 C. ------------------------------------------------------------------
64 #if defined(CERNLIB_DEBUG)
70 CHTEXT=IPTAB(IPART)//IPTAB1(IPART)//IPTAB2(IPART)
73 CALL GDRAWT(U,V,CHTEXT,SIZE,0.,1,0)
78 CALL UCTOH('OFF ',IOFF,4,4)
79 CALL UCTOH('$ ',IDOL,4,4)
97 IF(N2.GT.NXYZ)GO TO 30
104 IF(IPOINT.GT.JX+IQ(JX-1))GO TO 20
106 IF(NPOINT.LE.0)GO TO 20
109 C Is THRZ option set on (R-Z projection)
110 C and the cut lateral (vertical or horizontal) ?
112 IF (ITHRZ.NE.IOFF) THEN
113 IF (ICUT.EQ.1.OR.ICUT.EQ.2) ITR3D=-I
118 CALL GDFR3D(Q(IPOINT+3*NPOINT-1),1,U0,V0)
122 C Draw track number I
124 WRITE (CHPART,'(I4,''$'')') I
127 CALL GDRAWT(U,V,CHPART,SIZE,0.,1,0)
132 C Draw particle name IPTAB...(IPART)
134 CHTEXT=IPTAB(IPART)//IPTAB1(IPART)//IPTAB2(IPART)
137 CALL GDRAWT(U,V,CHTEXT,SIZE,0.,1,0)
144 C Reset ITR3D to 'standard projection'