This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gxint / gpawpp.F
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