]>
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 | *FCA : 05/01/99 09:26:24 by Federico Carminati | |
12 | * Added protection to be able to compile even when | |
13 | * CERNLIB_MOTIF is not defined. | |
14 | *-- Author : | |
15 | SUBROUTINE GPAWPP(NWGEAN,NWPAW) | |
16 | * | |
17 | #include "geant321/gcflag.inc" | |
18 | #include "geant321/gctime.inc" | |
19 | #include "geant321/gcomis.inc" | |
20 | #include "geant321/gcxlun.inc" | |
21 | #include "geant321/gcunit.inc" | |
22 | #if defined(CERNLIB_MOTIF) | |
23 | * | |
24 | EXTERNAL PAEXIT,UGLAST | |
25 | CHARACTER*80 BATCHF,PAWLOGF | |
26 | * | |
27 | CALL TIMEST(1.E6) | |
28 | * | |
29 | PRINT *,' *************************************************** ' | |
30 | PRINT *,' * * ' | |
31 | PRINT *,' * G E A N T 3 . 2 1 * ' | |
32 | PRINT *,' * * ' | |
33 | PRINT *,' * C E R N * ' | |
34 | PRINT *,' * * ' | |
35 | PRINT *,' * 15/3/94 Geneva CH * ' | |
36 | PRINT *,' * * ' | |
37 | PRINT *,' *************************************************** ' | |
38 | * | |
39 | CALL PAWINT1('GEANT',BATCHF,PAWLOGF) | |
40 | * | |
41 | CALL GZEBRA(NWGEAN) | |
42 | * | |
43 | CALL PAWINT2(-NWPAW,'+?',UGLAST,IWTYP) | |
44 | * | |
45 | CALL GINTRI | |
46 | * | |
47 | IF(IWTYP.EQ.999)THEN | |
48 | CALL PMINIT | |
49 | CALL GBROWS | |
50 | CALL KUINIM('Geant++') | |
51 | ENDIF | |
52 | * | |
53 | CALL PAWINT3 | |
54 | * | |
55 | IF(IWTYP.EQ.999)THEN | |
56 | CALL KUEXEC('OPTION ZFL1') | |
57 | #if defined(CERNLIB_IBMRT) | |
58 | CALL KUEXEC('HOST_EDITOR ''aixterm -e vi &''') | |
59 | #endif | |
60 | #if (!defined(CERNLIB_IBMRT))&&(!defined(CERNLIB_VAX)) | |
61 | CALL KUEXEC('HOST_EDITOR ''xterm -e vi &''') | |
62 | #endif | |
63 | ENDIF | |
64 | #if defined(CERNLIB_COMIS) | |
65 | * | |
66 | * *** Initialise COMIS | |
67 | DO 10 J=1,6 | |
68 | JPCOMS(J)=0 | |
69 | 10 CONTINUE | |
70 | CALL GXCS | |
71 | #endif | |
72 | * | |
73 | #if defined(CERNLIB_MONITOR) | |
74 | CALL GEAMON(0,' ') | |
75 | #endif | |
76 | CALL UGINIT | |
77 | CALL GDINIT | |
78 | IEVENT=0 | |
79 | CALL TIMEL(TIMINT) | |
80 | CALL KUEXEC('ROOT /GEANT') | |
81 | * | |
82 | IF(IWTYP.EQ.999)THEN | |
83 | CALL KUEXEC('SET/PROMPT ''geant++ >''') | |
84 | ELSE | |
85 | CALL KUEXEC('SET/PROMPT ''GEANT >''') | |
86 | ENDIF | |
87 | * | |
88 | CALL PAWINT4(PAWLOGF) | |
89 | * | |
90 | IF(IWTYP.EQ.999)THEN | |
91 | CALL KUWHAM('Geant++') | |
92 | ELSE | |
93 | CALL KUWHAG | |
94 | ENDIF | |
95 | * | |
96 | CALL PAEXIT | |
97 | * | |
98 | #if defined(CERNLIB_MONITOR) | |
99 | CALL GEAMON(2,'GXINT') | |
100 | #endif | |
101 | WRITE(CHMAIL,'('' Exiting from GEANT.'')') | |
102 | CALL GMAIL(0,0) | |
103 | * | |
104 | #else | |
105 | WRITE(CHMAIL, | |
106 | +'('' MOTIF not available, calling standard X11 interface'')') | |
107 | CALL GMAIL(0,0) | |
108 | CALL GPAW(NWGEAN,NWPAW) | |
109 | #endif | |
110 | END | |
111 | ||
112 |