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 GFDETD(IUSET,IUDET,ND,NAMESD,NBITSD)
14 C. ******************************************************************
16 C. * Returns digitisation parameters for detector IUDET of set *
19 C. * Input parameters *
20 C. * IUSET user set identifier *
21 C. * IUDET user detector identifier *
23 C. * Output parameters *
24 C. * ND number of elements per digitisation *
25 C. * NAMESD the ND variable names for the digitisation *
27 C. * NBITSD the ND bit numbers for packing the variable *
30 C. * ==>Called by : <USER> *
31 C. * Author R.Brun ********* *
33 C. ******************************************************************
35 #include "geant321/gcbank.inc"
36 #include "geant321/gcunit.inc"
38 CHARACTER*4 IUSET,IUDET,NAMESD(1)
40 C. ------------------------------------------------------------------
45 CALL GLOOK(IUSET,IQ(JSET+1),NSET,ISET)
50 CALL GLOOK(IUDET,IQ(JS+1),NDET,IDET)
58 CALL UHTOC(IQ(JDD+2*I-1),4,NAMESD(I),4)
59 NBITSD(I)=IQ(JDD+2*I )
66 90 WRITE (CHMAIL, 1000) IUSET
68 1000 FORMAT (' ***** GFDETD ERROR SET ',A4,' NOT FOUND')
70 95 WRITE (CHMAIL, 2000) IUSET,IUDET
72 2000 FORMAT (' ***** GFDETD ERROR FOR SET ',A4,
73 + ' DETECTOR ',A4,' NOT FOUND')