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