5 * Revision 1.1.1.1 1995/10/24 10:21:12 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.20 by S.Giani
12 SUBROUTINE GSDETU(IUSET,IUDET,NUPAR,UPAR)
14 C. ******************************************************************
16 C. * Storing and Retrieving User Detector parameters *
17 C. * ----------------------------------------------- *
19 C. * Stores user parameters for detector IUDET of set IUSET. *
20 C. * IUSET user set identifier *
21 C. * IUDET user detector identifier *
22 C. * NUPAR number of user parameters *
23 C. * UPAR array of NUPAR user floating point parameters. *
24 C. * The routine is used at initialisation time once the *
25 C. * geometrical volumes have been defined. *
28 C. * JS = LQ(JSET-ISET) *
29 C. * JD = LQ(JS-IDET) *
31 C. * Q(JDU+1) = UPAR(1) 1st user parameter,etc *
33 C. * ==>Called by : <USER>, UGEOM *
34 C. * Author R.Brun ********* *
36 C. ******************************************************************
38 #include "geant321/gcbank.inc"
39 #include "geant321/gcunit.inc"
41 CHARACTER*4 IUSET,IUDET
43 C. ------------------------------------------------------------------
48 CALL GLOOK(IUSET,IQ(JSET+1),NSET,ISET)
53 CALL GLOOK(IUDET,IQ(JS+1),NDET,IDET)
57 IF(NUPAR.LE.0)GO TO 90
58 CALL MZBOOK(IXCONS,JDU,JD,-3,'SJDU',0,0,NUPAR,3,0)
60 CALL UCOPY(UPAR,Q(JDU+1),NUPAR)
65 90 WRITE(CHMAIL,1000)IUSET,IUDET
67 1000 FORMAT(' ***** GSDETU ERROR FOR SET ',A4,' OR DETECTOR ',A4)