g4mat/src/main.F

0001 #ifdef batch
0002
0003       PROGRAM main
0004 *
0005 *
0006       PARAMETER (NGBANK=100000, NHBOOK=10000)
0007       COMMON/GCBANK/Q(NGBANK)
0008       COMMON/PAWC  /H(NHBOOK)
0009 *
0010       CALL GZEBRA( NGBANK)
0011       CALL HLIMIT(-NHBOOK)
0012 *
0013 * *** initialize HIGZ
0014       CALL HPLINT(0)
0015 *
0016 * *** GEANT initialisation
0017       CALL UGINIT
0018 *
0019 * *** End of RUN
0020       CALL UGLAST
0021 *
0022       STOP
0023       END
0024
0025 #else
0026
0027       PROGRAM main
0028 *
0029 *     GEANT main program. To link with the MOTIF user interface
0030 *     the routine GPAWPP(NWGEAN,NWPAW) should be called, whereas
0031 *     the routine GPAW(NWGEAN,NWPAW) gives access to the basic
0032 *     graphics version.
0033 *
0034       PARAMETER (NWGEAN=3000000, NWPAW=1000000)
0035       COMMON/GCBANK/GEANT(NWGEAN)
0036       COMMON/PAWC  /PAW  (NWPAW)
0037 *
0038 *
0039       CALL GPAW (NWGEAN,NWPAW)
0040 *
0041       END
0042 *
0043       SUBROUTINE qnext
0044       END
0045 *
0046       SUBROUTINE czopen
0047       END
0048 *
0049       SUBROUTINE cztcp
0050       END
0051 *
0052       SUBROUTINE czclos
0053       END
0054 *
0055       SUBROUTINE czputa
0056       END
0057
0058 #endif