5 * Revision 1.1.1.1 1995/10/24 10:21:48 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.33 by S.Giani
12 SUBROUTINE GPAW(NWGEAN,NWPAW)
14 EXTERNAL PAEXIT,UGLAST
15 CHARACTER*80 BATCHF,PAWLOGF
16 #include "geant321/gcflag.inc"
17 #include "geant321/gctime.inc"
18 #include "geant321/gcomis.inc"
19 #include "geant321/gcxlun.inc"
20 #include "geant321/gcunit.inc"
24 PRINT *,' *************************************************** '
26 PRINT *,' * G E A N T 3 . 2 1 * '
28 PRINT *,' * C E R N * '
30 PRINT *,' * 15/3/94 Geneva CH * '
32 PRINT *,' *************************************************** '
34 CALL PAWINT1('GEANT',BATCHF,PAWLOGF)
38 CALL PAWINT2(-NWPAW,' ',UGLAST,IWTYP)
40 #if !defined(CERNLIB_IBM)
47 #if defined(CERNLIB_COMIS)
49 * *** Initialise COMIS
56 #if defined(CERNLIB_MONITOR)
63 CALL KUEXEC('ROOT /GEANT')
65 CALL KUEXEC('SET/PROMPT ''GEANT >''')
73 #if defined(CERNLIB_MONITOR)
74 CALL GEAMON(2,'GXINT')
76 WRITE(CHMAIL,'('' Exiting from GEANT.'')')