5 * Revision 1.1.1.1 1995/10/24 10:20:11 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
12 SUBROUTINE GPRINT(CHNAME,NUMB)
14 C. ******************************************************************
16 C. * Routine to print data structures *
18 C. * CHNAME name of a data structure *
19 C. * NUMB data structure number *
21 C. * ==>Called by : <USER>, UGINIT ,<GXINT> GINC4 *
22 C. * Author R.Brun ********* *
24 C. ******************************************************************
26 CHARACTER*4 KNAMES(11),NAME
29 SAVE IFIRST,KNAMES,NHAMES
31 DATA KNAMES/'DIGI','JXYZ','HITS','KINE','MATE','VOLU'
32 + ,'ROTM','SETS','TMED','PART','VERT'/
34 C. ------------------------------------------------------------------
39 CALL UCTOH(KNAMES,NHAMES,4,44)
42 CALL GLOOK(NAME,NHAMES,11,JUMP)
44 IF(JUMP.EQ. 1) CALL GPDIGI ('*','*')
45 IF(JUMP.EQ. 2) CALL GPJXYZ (NUMB)
46 IF(JUMP.EQ. 3) CALL GPHITS ('*','*')
47 IF(JUMP.EQ. 4) CALL GPKINE (NUMB)
48 IF(JUMP.EQ. 5) CALL GPMATE (NUMB)
49 IF(JUMP.EQ. 6) CALL GPVOLU (NUMB)
50 IF(JUMP.EQ. 7) CALL GPROTM (NUMB)
51 IF(JUMP.EQ. 8) CALL GPSETS ('*','*')
52 IF(JUMP.EQ. 9) CALL GPTMED (NUMB)
53 IF(JUMP.EQ.10) CALL GPPART (NUMB)
54 IF(JUMP.EQ.11) CALL GPVERT (NUMB)