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