TestEm5/geant3/src/main.F

Go to the documentation of this file.

#ifdef batch

      PROGRAM main

      parameter(ng=200000,nh=10000)
      common/gcbank/q(ng)
      common/pawc/h(nh)
C     ALLOCATE MEMORY FOR ZEBRA/HBOOK
C
      CALL gzebra(ng)
      CALL hlimit(-nh)
C
      CALL hplint(0)
C
C     INITIALISATION
C
      CALL uginit
C
C     PROCESSING
C
      CALL grun
C
C     TERMINATION
C
      CALL uglast
C
      stop
      END
      
#else
      
      PROGRAM main
*
*     GEANT main program. To link with the MOTIF user interface
*     the routine GPAWPP(NWGEAN,NWPAW) should be called, whereas
*     the routine GPAW(NWGEAN,NWPAW) gives access to the basic
*     graphics version.
*
      parameter(nwgean=3000000, nwpaw=1000000)
      common/gcbank/geant(nwgean)
      common/pawc  /paw(nwpaw)
*
*
      CALL gpaw (nwgean,nwpaw)
*
      END
*
      SUBROUTINE qnext
      END
*
      SUBROUTINE czopen
      END
*
      SUBROUTINE cztcp
      END
*
      SUBROUTINE czclos
      END
*
      SUBROUTINE czputa
      END
      
#endif