main.F

Go to the documentation of this file.

#ifdef batch  

      PROGRAM main
*
*
      parameter(ngbank=100000, nhbook=10000)
      common/gcbank/q(ngbank)
      common/pawc  /h(nhbook)
*
      CALL gzebra( ngbank)
      CALL hlimit(-nhbook)
*
* *** initialize higz
      CALL hplint(0)
*
* *** geant initialisation
      CALL uginit
*
* *** End of run
      CALL uglast
*
      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