GEANT321/ghits/gfdetu.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:21:09  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.20  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GFDETU(IUSET,IUDET,NUPAR,NW,UPAR)
  13 C.
  14 C.    *******************************************************************
  15 C.    *                                                                 *
  16 C.    *  Return in UPAR the first NUPAR user parameters of detector     *
  17 C.    *  IUDET. NW is the total number of parameters(output), or zero   *
  18 C.    *  if an  error occured.                                          *
  19 C.    *                                                                 *
  20 C.    *    ==>Called by : <USER>                                        *
  21 C.    *       Author    W.Gebel  *********                              *
  22 C.    *                                                                 *
  23 C.    *******************************************************************
  24 C.
  25 #include "geant321/gcbank.inc"
  26 #include "geant321/gcunit.inc"
  27       DIMENSION UPAR(1)
  28       CHARACTER*4 IUSET,IUDET
  29 C.
  30 C.    ------------------------------------------------------------------
  31 C.
  32       NW=0
  33       NSET=IQ(JSET-1)
  34       IF(NSET.LE.0) GO TO 90
  35       CALL GLOOK(IUSET,IQ(JSET+1),NSET,IS)
  36       IF(IS.LE.0) GO TO 90
  37       JS=LQ(JSET-IS)
  38       ND=IQ(JS-1)
  39       IF(ND.LE.0) GO TO 90
  40       CALL GLOOK(IUDET,IQ(JS+1),ND,ID)
  41       IF(ID.LE.0) GO TO 95
  42       JD=LQ(JS-ID)
  43       JU=LQ(JD-3)
  44       IF(JU.NE.0)THEN
  45          NW=IQ(JU-1)
  46          IF(NUPAR.GT.0) CALL UCOPY(Q(JU+1),UPAR(1),NUPAR)
  47       ENDIF
  48       GO TO 99
  49 C
  50 C              Error
  51 C
  52    90 WRITE (CHMAIL, 1000) IUSET
  53       CALL GMAIL(0,0)
  54  1000 FORMAT (' ***** GFDETU ERROR SET ',A4,' NOT FOUND')
  55       GO TO 99
  56    95 WRITE (CHMAIL, 2000) IUSET,IUDET
  57       CALL GMAIL(0,0)
  58  2000 FORMAT (' ***** GFDETU ERROR FOR SET ',A4,
  59      + ' DETECTOR ',A4,' NOT FOUND')
  60 C
  61   99  RETURN
  62       END