This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / guser / guview.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:21:46 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.25 by S.Giani
11*-- Author :
12 SUBROUTINE GUVIEW(IDS,IVS,ICS,IVIEW)
13C.
14C. ******************************************************************
15C. * *
16C. * User routine for interactive version *
17C. * *
18C. * ==>Called by : <GXINT>, GINC1 *
19C. * *
20C. ******************************************************************
21C.
22C.
23C. ------------------------------------------------------------------
24C.
25 CHARACTER*(*) ICS
26#if defined(CERNLIB_USRJMP)
27#include "geant321/gcjump.inc"
28#endif
29#if !defined(CERNLIB_USRJMP)
30 CALL GUSTEP
31#endif
32#if defined(CERNLIB_USRJMP)
33 CALL JUMPT0(JUSTEP)
34#endif
35 END