5 * Revision 1.1.1.1 1995/10/24 10:21:41 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 06/07/94 18.26.03 by S.Giani
14 C. ******************************************************************
16 C. * Returns the set/volume parameters corresponding to *
17 C. * the current space point in /GCTRAK/ *
18 C. * and fill common /GCSETS/ *
20 C. * IHSET user set identifier *
21 C. * IHDET user detector identifier *
22 C. * ISET set number in JSET *
23 C. * IDET detector number in JS=LQ(JSET-ISET) *
24 C. * IDTYPE detector type (1,2) *
25 C. * NUMBV detector volume numbers (array of length NVNAME) *
26 C. * NVNAME number of volume levels *
28 C. * ==>Called by : GTRACK *
29 C. * Author R.Brun ********* *
30 C. * Modified V.Perev *
32 C. ******************************************************************
34 #include "geant321/gcbank.inc"
35 #include "geant321/gcsets.inc"
36 #include "geant321/gcvolu.inc"
37 #include "geant321/gctmed.inc"
38 #if defined(CERNLIB_DEBUG)
39 INTEGER LNAM(15), LNUM(15)
41 JATTF(JV) = JV + Q(JV+5) + 6
43 C. ------------------------------------------------------------------
46 #if defined(CERNLIB_DEBUG)
47 WRITE(CHMAIL,1000)NLEVEL
50 WRITE(CHMAIL,1001)NAMES(I),NUMBER(I),LVOLUM(I),LINDEX(I)
52 WRITE(CHMAIL,1002)(GTRAN(J,I),J = 1,3),(GRMAT(J,I),J=1,10)
55 1000 FORMAT (' DEBUG : GFINDS =',I3)
56 1001 FORMAT (5(1X,A4,3I3))
57 1002 FORMAT (1X,13F9.4)
59 CALL UCOPY (NAMES (1),LNAM(1),NLEV)
60 CALL UCOPY (NUMBER(1),LNUM(1),NLEV)
62 CALL GLVOLU (NLEV, LNAM, LNUM, IER)
73 DO 10 NLEV = NLEVEL,1,-1
74 JVO = LQ(JVOLUM-LVOLUM(NLEV))
94 IF(NAMES(J).EQ.NAME)THEN