*
* $Id: udet.F,v 1.1.1.1 1995/10/24 10:22:13 cernlib Exp $
*
* $Log: udet.F,v $
* Revision 1.1.1.1  1995/10/24 10:22:13  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.35  by  S.Giani
*-- Author :
      SUBROUTINE UDET
C
#include "geant321/gclist.inc"
      CHARACTER*4 NAMESH(9),NAFD(2),NARD1(2),NARD2(2),NARD3(2)
      DIMENSION NBITSH(9),NBITSV(2),ORIG(9),FACT(9)
C
      DATA NAFD,NARD1,NARD2,NARD3/'ARM ','FSP ','ARM ','RSP1'
     + ,'ARM ','RSP2','ARM ','RSP3'/
      DATA NBITSV/2,6/
      DATA NAMESH/'X   ','Y   ','Z   ','U   ','V   ','W   '
     + ,'UP  ','VP  ','WP  '/
      DATA NBITSH/6*17,3*12/
      DATA ORIG/3*300,3*100.,3*1./
      DATA FACT/3*100.,3*500.,3*1000./
C
C
      CALL GLOOK('DRFT',LSETS,NSETS,ILOOK)
      IF(ILOOK.EQ.0)GO TO 99
      CALL GSDET('DRFT','FSP ',2,NAFD ,NBITSV,1,100,100,IDRFT,IFD )
      CALL GSDET('DRFT','RSP1',2,NARD1,NBITSV,1,100,100,IDRFT,IRD1)
      CALL GSDET('DRFT','RSP2',2,NARD2,NBITSV,1,100,100,IDRFT,IRD2)
      CALL GSDET('DRFT','RSP3',2,NARD3,NBITSV,1,100,100,IDRFT,IRD3)
C
C
      CALL GSDETH('DRFT','FSP ',9,NAMESH,NBITSH,ORIG,FACT)
      CALL GSDETH('DRFT','RSP1',9,NAMESH,NBITSH,ORIG,FACT)
      CALL GSDETH('DRFT','RSP2',9,NAMESH,NBITSH,ORIG,FACT)
      CALL GSDETH('DRFT','RSP3',9,NAMESH,NBITSH,ORIG,FACT)
C
C
C
C
      CALL GLOOK('SETS',LPRIN,NPRIN,ILOOK)
      IF(ILOOK.NE.0)CALL GPSETS('*','*')
C
  99  RETURN
      END