[u/mrichter/AliRoot.git] / GEANT321 / gscan / gscanu.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:21:36  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.31  by  S.Giani
*-- Author :
      SUBROUTINE GSCANU
*
************************************************************************
*             SCAN utility called at the end of each tracking step     *
*             INWVOL is different from 0 when the track has reached    *
*                    a volume boundary                                 *
*                                                                      *
*          ==>Called by : <USER>,GUSTEP                                *
*             Author    R.Brun  *********                              *
************************************************************************
*
#include "geant321/gcbank.inc"
#include "geant321/gcscal.inc"
#include "geant321/gcmate.inc"
#include "geant321/gctrak.inc"
#include "geant321/gckine.inc"
#include "geant321/gcvolu.inc"
#include "geant321/gcscan.inc"
      SAVE ISLOLD,IDOLD,IDNUM
*
*     -----------------------------------------------------------------
*
      IF(SLENG.LE.0.)THEN
         SX0=0.
         SABS=0.
         ITETA=ITRA
         ISLOLD=0
         IDOLD=0
      ENDIF
      SX0=SX0+STEP/RADL
      SABS=SABS+STEP/ABSL
      IF(INWVOL.NE.2)THEN
*
*            Compute new ISL,IDET
         ISL=0
         INEW=0
         DO 20 IL=NLEVEL,1,-1
            DO 10 I=1,NSLIST
               IF(NAMES(IL).EQ.ISLIST(I))THEN
                  ISL=I
                  IDNUM=NUMBER(IL)
                  IF(IL.EQ.NLEVEL.OR.IDNUM.NE.IDOLD)INEW=1
                  GO TO 30
               ENDIF
  10        CONTINUE
  20     CONTINUE
  30     CONTINUE
         IF(INWVOL.EQ.3.OR.ISL.NE.ISLOLD.OR.INEW.NE.0)THEN
            CALL GSSCAN(ISLOLD,IDOLD)
            IDOLD=IDNUM
            ISLOLD=ISL
         ENDIF
      ENDIF
*
      CALL GDEBUG
*
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:21:36 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.31 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GSCANU
	13	*
	14	************************************************************************
	15	* SCAN utility called at the end of each tracking step *
	16	* INWVOL is different from 0 when the track has reached *
	17	* a volume boundary *
	18	* *
	19	* ==>Called by : <USER>,GUSTEP *
	20	* Author R.Brun ********* *
	21	************************************************************************
	22	*
	23	#include "geant321/gcbank.inc"
	24	#include "geant321/gcscal.inc"
	25	#include "geant321/gcmate.inc"
	26	#include "geant321/gctrak.inc"
	27	#include "geant321/gckine.inc"
	28	#include "geant321/gcvolu.inc"
	29	#include "geant321/gcscan.inc"
	30	SAVE ISLOLD,IDOLD,IDNUM
	31	*
	32	* -----------------------------------------------------------------
	33	*
	34	IF(SLENG.LE.0.)THEN
	35	SX0=0.
	36	SABS=0.
	37	ITETA=ITRA
	38	ISLOLD=0
	39	IDOLD=0
	40	ENDIF
	41	SX0=SX0+STEP/RADL
	42	SABS=SABS+STEP/ABSL
	43	IF(INWVOL.NE.2)THEN
	44	*
	45	* Compute new ISL,IDET
	46	ISL=0
	47	INEW=0
	48	DO 20 IL=NLEVEL,1,-1
	49	DO 10 I=1,NSLIST
	50	IF(NAMES(IL).EQ.ISLIST(I))THEN
	51	ISL=I
	52	IDNUM=NUMBER(IL)
	53	IF(IL.EQ.NLEVEL.OR.IDNUM.NE.IDOLD)INEW=1
	54	GO TO 30
	55	ENDIF
	56	10 CONTINUE
	57	20 CONTINUE
	58	30 CONTINUE
	59	IF(INWVOL.EQ.3.OR.ISL.NE.ISLOLD.OR.INEW.NE.0)THEN
	60	CALL GSSCAN(ISLOLD,IDOLD)
	61	IDOLD=IDNUM
	62	ISLOLD=ISL
	63	ENDIF
	64	ENDIF
65	*
66	CALL GDEBUG
67	*
68	END