]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1995/10/24 10:21:48 cernlib | |
6 | * Geant | |
7 | * | |
8 | * | |
9 | #include "geant321/pilot.h" | |
10 | *CMZ : 3.21/02 29/03/94 15.41.33 by S.Giani | |
11 | *-- Author : | |
12 | SUBROUTINE GPAW(NWGEAN,NWPAW) | |
13 | * | |
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" | |
21 | * | |
22 | CALL TIMEST(1.E6) | |
23 | * | |
24 | PRINT *,' *************************************************** ' | |
25 | PRINT *,' * * ' | |
26 | PRINT *,' * G E A N T 3 . 2 1 * ' | |
27 | PRINT *,' * * ' | |
28 | PRINT *,' * C E R N * ' | |
29 | PRINT *,' * * ' | |
30 | PRINT *,' * 15/3/94 Geneva CH * ' | |
31 | PRINT *,' * * ' | |
32 | PRINT *,' *************************************************** ' | |
33 | * | |
34 | CALL PAWINT1('GEANT',BATCHF,PAWLOGF) | |
35 | * | |
36 | CALL GZEBRA(NWGEAN) | |
37 | * | |
38 | CALL PAWINT2(-NWPAW,' ',UGLAST,IWTYP) | |
39 | * | |
40 | #if !defined(CERNLIB_IBM) | |
41 | CALL ZBRDEF | |
42 | #endif | |
43 | CALL GINTRI | |
44 | * | |
45 | CALL PAWINT3 | |
46 | * | |
47 | #if defined(CERNLIB_COMIS) | |
48 | * | |
49 | * *** Initialise COMIS | |
50 | DO 10 J=1,6 | |
51 | JPCOMS(J)=0 | |
52 | 10 CONTINUE | |
53 | CALL GXCS | |
54 | #endif | |
55 | * | |
56 | #if defined(CERNLIB_MONITOR) | |
57 | CALL GEAMON(0,' ') | |
58 | #endif | |
59 | CALL UGINIT | |
60 | CALL GDINIT | |
61 | IEVENT=0 | |
62 | CALL TIMEL(TIMINT) | |
63 | CALL KUEXEC('ROOT /GEANT') | |
64 | * | |
65 | CALL KUEXEC('SET/PROMPT ''GEANT >''') | |
66 | * | |
67 | CALL PAWINT4(PAWLOGF) | |
68 | * | |
69 | CALL KUWHAG | |
70 | * | |
71 | CALL PAEXIT | |
72 | * | |
73 | #if defined(CERNLIB_MONITOR) | |
74 | CALL GEAMON(2,'GXINT') | |
75 | #endif | |
76 | WRITE(CHMAIL,'('' Exiting from GEANT.'')') | |
77 | CALL GMAIL(0,0) | |
78 | * | |
79 | END | |
80 | ||
81 |