geant3/src/main.F

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