***********************************************************************
*                                                                     *
      SUBROUTINE MULTSTEP
*                                                                     *
*     do the gustep work for multiplicity array                       *
*                                                                     *
*                                  R. Holzmann    06/06/97            *
***********************************************************************
      IMPLICIT NONE
#include "geant321/gckine.inc"
#include "geant321/gcking.inc"
#include "geant321/gclist.inc"
#include "geant321/gcsets.inc"
#include "geant321/gctmed.inc"
#include "geant321/gctrak.inc"
#include "geant321/gcvolu.inc"
#include "multtups.inc"

      INTEGER*4 NH, IHIT, I, J
      PARAMETER (NH=1)
      REAL*4 HITS(NH)
      CHARACTER*4 CHSET,CHVOL(10)
      EQUIVALENCE (IHSET,CHSET), (NAMES,CHVOL)

      IF(DESTEP.LE.1.0E-10 .OR. INWVOL.EQ.3) RETURN

      IF (CHSET.EQ.'MULT') THEN
         I = NUMBER(NLEVEL-1)           ! find out detector #
         IF(CHVOL(NLEVEL).EQ.'U1SL') I = I + NSMALL

C        write(6,*) ' I= ',I,' in ',CHVOL(NLEVEL)
C        write(6,*) 'numbv=',(NUMBV(J),J=1,4)
C        write(6,*) 'I= ',I,NUMBV(NLEVEL-1),' DE= ',DESTEP

         HITS(1) = DESTEP               ! store deposited energy in this step
         CALL GSAHIT(ISET,IDET,ITRA,NUMBV,HITS,IHIT)
      END IF

      RETURN
      END