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