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
11 *FCA : 05/01/99 09:53:52 by Federico Carminati
12 * Corrected inline function to prevent loss of address
13 * following conversion to real
17 C. ******************************************************************
19 C. * Returns the set/volume parameters corresponding to *
20 C. * the current space point in /GCTRAK/ *
21 C. * and fill common /GCSETS/ *
23 C. * IHSET user set identifier *
24 C. * IHDET user detector identifier *
25 C. * ISET set number in JSET *
26 C. * IDET detector number in JS=LQ(JSET-ISET) *
27 C. * IDTYPE detector type (1,2) *
28 C. * NUMBV detector volume numbers (array of length NVNAME) *
29 C. * NVNAME number of volume levels *
31 C. * ==>Called by : GTRACK *
32 C. * Author R.Brun ********* *
33 C. * Modified V.Perev *
35 C. ******************************************************************
37 #include "geant321/gcbank.inc"
38 #include "geant321/gcsets.inc"
39 #include "geant321/gcvolu.inc"
40 #include "geant321/gctmed.inc"
41 #if defined(CERNLIB_DEBUG)
42 INTEGER LNAM(15), LNUM(15)
44 JATTF(JV) = JV + NINT(Q(JV+5)) + 6
46 C. ------------------------------------------------------------------
49 #if defined(CERNLIB_DEBUG)
50 WRITE(CHMAIL,1000)NLEVEL
53 WRITE(CHMAIL,1001)NAMES(I),NUMBER(I),LVOLUM(I),LINDEX(I)
55 WRITE(CHMAIL,1002)(GTRAN(J,I),J = 1,3),(GRMAT(J,I),J=1,10)
58 1000 FORMAT (' DEBUG : GFINDS =',I3)
59 1001 FORMAT (5(1X,A4,3I3))
60 1002 FORMAT (1X,13F9.4)
62 CALL UCOPY (NAMES (1),LNAM(1),NLEV)
63 CALL UCOPY (NUMBER(1),LNUM(1),NLEV)
65 CALL GLVOLU (NLEV, LNAM, LNUM, IER)
76 DO 10 NLEV = NLEVEL,1,-1
77 JVO = LQ(JVOLUM-LVOLUM(NLEV))
97 IF(NAMES(J).EQ.NAME)THEN