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