Debug of events

The development of an event can be followed via the routine: CALL GDEBUG

which operates under the control of the ISWIT array. It is the user responsibility to call this routine from GUSTEP. If the DEBUG flag is active, the routine will perform as follows:

ISWIT(1)

2

the content of the temporary stack for secondaries in the common /GCKING/ is printed;

ISWIT(2)

1

the current point of the track is stored in the JDXYZ bank via the routine GSXYZ;

2

the current information on the track is printed via the routine GPCXYZ;

3

the current step is drawn via the routine GDCXYZ;

4

the current point of the track is stored in the JDXYZ bank via the routine GSXYZ. When the particle stops the track is drawn via the routine GDTRAK and the space occupied by the track in the structure JDXYZ released;

ISWIT(3)

1

the current point of the track is stored in the JDXYZ bank via the routine GSXYZ.

BASE410