5 * Revision 1.1.1.1 1995/10/24 10:21:09 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.20 by S.Giani
12 SUBROUTINE GFDETH(IUSET,IUDET,NH,NAMESH,NBITSH,ORIG,FACT)
14 C. ******************************************************************
16 C. * Returns hit parameters for detector IUDET of set IUSET. *
18 C. * Input parameters *
19 C. * IUSET user set identifier *
20 C. * IUDET user detector identifier *
22 C. * Output parameters *
23 C. * NH number of elements per hit *
24 C. * NAMESH the NH variable names for the hit elements *
25 C. * NBITSH the NH bit numbers for packing the variable values *
26 C. * ORIG The quantity packed in the structure JHITS for the *
27 C. * Ith variable is a positive integer with NBITSH(I) *
28 C. * bits and such that *
29 C. * FACT IVAR(I) = (VAR(I)+ORIG(I))*FACT(I) *
31 C. * ==>Called by : <USER> *
32 C. * Author R.Brun ,M.Maire ********* *
34 C. ******************************************************************
36 #include "geant321/gcbank.inc"
37 #include "geant321/gcunit.inc"
38 DIMENSION NBITSH(1),ORIG(1),FACT(1)
39 CHARACTER*4 IUSET,IUDET,NAMESH(1)
41 C. ------------------------------------------------------------------
46 CALL GLOOK(IUSET,IQ(JSET+1),NSET,ISET)
51 CALL GLOOK(IUDET,IQ(JS+1),NDET,IDET)
59 CALL UHTOC(IQ(JDH+4*I-3),4,NAMESH(I),4)
60 NBITSH(I)=IQ(JDH+4*I-2)
61 ORIG(I) = Q(JDH+4*I-1)
69 90 WRITE (CHMAIL, 1000) IUSET
71 1000 FORMAT (' ***** GFDETH ERROR SET ',A4,' NOT FOUND')
73 95 WRITE (CHMAIL, 2000) IUSET,IUDET
75 2000 FORMAT (' ***** GFDETH ERROR FOR SET ',A4,
76 + ' DETECTOR ',A4,' NOT FOUND')