[u/mrichter/AliRoot.git] / GEANT321 / gbase / gprint.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:11  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
*-- Author :
      SUBROUTINE GPRINT(CHNAME,NUMB)
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Routine to print data structures                         *
C.    *                                                                *
C.    *       CHNAME   name of a data structure                        *
C.    *       NUMB     data structure number                           *
C.    *                                                                *
C.    *    ==>Called by : <USER>, UGINIT  ,<GXINT> GINC4               *
C.    *       Author    R.Brun  *********                              *
C.    *                                                                *
C.    ******************************************************************
C.
      CHARACTER*4 KNAMES(11),NAME
      DIMENSION NHAMES(11)
      CHARACTER*(*) CHNAME
      SAVE IFIRST,KNAMES,NHAMES
      DATA IFIRST/0/
      DATA KNAMES/'DIGI','JXYZ','HITS','KINE','MATE','VOLU'
     +           ,'ROTM','SETS','TMED','PART','VERT'/
C.
C.    ------------------------------------------------------------------
C.
      NAME=CHNAME
      IF(IFIRST.EQ.0)THEN
         IFIRST=1
         CALL UCTOH(KNAMES,NHAMES,4,44)
      ENDIF
C
      CALL GLOOK(NAME,NHAMES,11,JUMP)
C
      IF(JUMP.EQ. 1) CALL GPDIGI ('*','*')
      IF(JUMP.EQ. 2) CALL GPJXYZ (NUMB)
      IF(JUMP.EQ. 3) CALL GPHITS ('*','*')
      IF(JUMP.EQ. 4) CALL GPKINE (NUMB)
      IF(JUMP.EQ. 5) CALL GPMATE (NUMB)
      IF(JUMP.EQ. 6) CALL GPVOLU (NUMB)
      IF(JUMP.EQ. 7) CALL GPROTM (NUMB)
      IF(JUMP.EQ. 8) CALL GPSETS ('*','*')
      IF(JUMP.EQ. 9) CALL GPTMED (NUMB)
      IF(JUMP.EQ.10) CALL GPPART (NUMB)
      IF(JUMP.EQ.11) CALL GPVERT (NUMB)
C
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:11 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GPRINT(CHNAME,NUMB)
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * Routine to print data structures *
	17	C. * *
	18	C. * CHNAME name of a data structure *
	19	C. * NUMB data structure number *
	20	C. * *
	21	C. * ==>Called by : <USER>, UGINIT ,<GXINT> GINC4 *
	22	C. * Author R.Brun ********* *
	23	C. * *
	24	C. ******************************************************************
	25	C.
	26	CHARACTER*4 KNAMES(11),NAME
	27	DIMENSION NHAMES(11)
	28	CHARACTER() CHNAME
	29	SAVE IFIRST,KNAMES,NHAMES
	30	DATA IFIRST/0/
	31	DATA KNAMES/'DIGI','JXYZ','HITS','KINE','MATE','VOLU'
	32	+ ,'ROTM','SETS','TMED','PART','VERT'/
	33	C.
	34	C. ------------------------------------------------------------------
	35	C.
	36	NAME=CHNAME
	37	IF(IFIRST.EQ.0)THEN
	38	IFIRST=1
	39	CALL UCTOH(KNAMES,NHAMES,4,44)
	40	ENDIF
	41	C
	42	CALL GLOOK(NAME,NHAMES,11,JUMP)
	43	C
	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)
	55	C
	56	END