]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1995/10/24 10:21:49 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 GPAWPP(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 | CALL GINTRI | |
41 | * | |
42 | IF(IWTYP.EQ.999)THEN | |
43 | CALL PMINIT | |
44 | CALL GBROWS | |
45 | CALL KUINIM('Geant++') | |
46 | ENDIF | |
47 | * | |
48 | CALL PAWINT3 | |
49 | * | |
50 | IF(IWTYP.EQ.999)THEN | |
51 | CALL KUEXEC('OPTION ZFL1') | |
52 | #if defined(CERNLIB_IBMRT) | |
53 | CALL KUEXEC('HOST_EDITOR ''aixterm -e vi &''') | |
54 | #endif | |
55 | #if (!defined(CERNLIB_IBMRT))&&(!defined(CERNLIB_VAX)) | |
56 | CALL KUEXEC('HOST_EDITOR ''xterm -e vi &''') | |
57 | #endif | |
58 | ENDIF | |
59 | #if defined(CERNLIB_COMIS) | |
60 | * | |
61 | * *** Initialise COMIS | |
62 | DO 10 J=1,6 | |
63 | JPCOMS(J)=0 | |
64 | 10 CONTINUE | |
65 | CALL GXCS | |
66 | #endif | |
67 | * | |
68 | #if defined(CERNLIB_MONITOR) | |
69 | CALL GEAMON(0,' ') | |
70 | #endif | |
71 | CALL UGINIT | |
72 | CALL GDINIT | |
73 | IEVENT=0 | |
74 | CALL TIMEL(TIMINT) | |
75 | CALL KUEXEC('ROOT /GEANT') | |
76 | * | |
77 | IF(IWTYP.EQ.999)THEN | |
78 | CALL KUEXEC('SET/PROMPT ''geant++ >''') | |
79 | ELSE | |
80 | CALL KUEXEC('SET/PROMPT ''GEANT >''') | |
81 | ENDIF | |
82 | * | |
83 | CALL PAWINT4(PAWLOGF) | |
84 | * | |
85 | IF(IWTYP.EQ.999)THEN | |
86 | CALL KUWHAM('Geant++') | |
87 | ELSE | |
88 | CALL KUWHAG | |
89 | ENDIF | |
90 | * | |
91 | CALL PAEXIT | |
92 | * | |
93 | #if defined(CERNLIB_MONITOR) | |
94 | CALL GEAMON(2,'GXINT') | |
95 | #endif | |
96 | WRITE(CHMAIL,'('' Exiting from GEANT.'')') | |
97 | CALL GMAIL(0,0) | |
98 | * | |
99 | END | |
100 | ||
101 |