c
c     Startup of HADES version of gpaw.F   (Geant/PAW interface)
c
c     last modified on 05/09/01 by: R.Holzmann

      SUBROUTINE GPAWUP(DOBATCH,INPUTFILE,NCHAR)

      INTEGER DOBATCH, NCHAR
      CHARACTER*(*) INPUTFILE
      CHARACTER*200 INPUTF

      EXTERNAL      PAEXIT,UGLAST
      CHARACTER*80  BATCHF,PAWLOGF

#include "geant321/gcbank.inc"
#include "geant321/gcflag.inc"
#include "geant321/gctime.inc"
#include "geant321/gcomis.inc"
#include "geant321/gcxlun.inc"
#include "geant321/gcunit.inc"

*
      COMMON /PCMODE/ IPIAF,IPAWPP,NOLOGPAW,BATCHPAW
      LOGICAL NOLOGPAW,BATCHPAW

c     PARAMETER (NWGEAN=1500000,NWPAW=1000000)
      PARAMETER (NWGEAN=8000000,NWPAW=5000000) ! needed for Rich superrings

      COMMON /GCBANK/ GEANT(NWGEAN)
      COMMON /PAWC/ PAW(NWPAW)

*      CALL TIMEST(1.E6)
*
      INPUTF = INPUTFILE(1:MIN(NCHAR,200))
      PRINT *,' *************************************************** '
      PRINT *,' *                    --------                     * '
      PRINT *,' *                   | HGeant |                    * '
      PRINT *,' *                    --------                     * '
      PRINT *,' *                                                 * '
      PRINT *,' *                    based on                     * '
      PRINT *,' *                                                 * '
      PRINT *,' *               G E A N T   3 . 2 1               * '
      PRINT *,' *                                                 * '
      PRINT *,' *                    C E R N                      * '
      PRINT *,' *                                                 * '
      PRINT *,' *               15/3/94  Geneva  CH               * '
      PRINT *,' *                                                 * '
      PRINT *,' *************************************************** '
*
      CALL PAWINT1('GEANT',BATCHF,PAWLOGF)
      IF(DOBATCH.NE.0) BATCHPAW = .TRUE.
*
      CALL GZEBRA(NWGEAN)
*
      IF(DOBATCH.EQ.2) THEN  ! run as full batch, i.e. no commands, no graphics
         CALL HLIMIT(-NWPAW)
         CALL HPLINT(0)
         CALL UGINIT(DOBATCH,INPUTF)
         IEVENT = 0
         CALL GRUN
         CALL UGLAST
         RETURN
      ENDIF
*
      CALL PAWINT2(-NWPAW,' ',UGLAST,IWTYP)
*
#if !defined(CERNLIB_IBM)
      CALL ZBRDEF
#endif
      CALL GINTRI
*
      CALL PAWINT3
*
#if defined(CERNLIB_COMIS)
*
* *** Initialise COMIS
      DO 10 J=1,6
         JPCOMS(J)=0
   10 CONTINUE
      CALL GXCS
#endif
*
#if defined(CERNLIB_MONITOR)
      CALL GEAMON(0,' ')
#endif
      CALL UGINIT(DOBATCH,INPUTF)

      CALL GDINIT
      IEVENT=0
      CALL TIMEL(TIMINT)
      CALL KUEXEC('SET/ROOT /GEANT')
*
      CALL KUEXEC('SET/PROMPT ''HGeant>''')
      CALL KUEXEC('HELP -n')
*
      CALL PAWINT4(PAWLOGF)
*
      CALL HADGEANT      ! add additional HADES-specific commands here
*
c      CALL KUWHAG
c      CALL HSTARTROOT
*
      RETURN
      END
 
      SUBROUTINE QNEXT
      END
      SUBROUTINE CZOPEN
      END
      SUBROUTINE CZTCP
      END
      SUBROUTINE CZCLOS
      END
      SUBROUTINE CZPUTA
      END