DPMJET/flukapro/(CASLIM)

   1 *$ CREATE CASLIM.ADD
   2 *COPY CASLIM
   3 *
   4 *=== caslim ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *     include file: caslim copy                   created 26/11/86 by p*
   8 *     changes: 20-sep-89 by A. Ferrari                                 *
   9 *     included in the following subroutines or functions: not updated  *
  10 *                                                                      *
  11 *     description of the common block(s) and variable(s)               *
  12 *                                                                      *
  13 *                                                                      *
  14 *                                                                      *
  15 *     /caslim/ is needed to decide when to stop the run                *
  16 *        tlim   = if cpu-time-left<tlim the run will be ended          *
  17 *        tmean  = is the average time needed for the following         *
  18 *                 of one beam particle                                 *
  19 *        tmax   = is the maximum time needed for the following         *
  20 *                 of one beam particle                                 *
  21 *        ttot   = the cumulative time needed to follow the beam        *
  22 *                 particles                                            *
  23 *        ncases = the maximum number of beam particles to be followed  *
  24 *        nstars = the maximum number of stars to be generated          *
  25 *        ncase  = the number of beam particles followed                *
  26 *        mbatch = batch sizes                                          *
  27 *        nbatch = number of batches                                    *
  28 *        ibatch = current batch number                                 *
  29 *        ncoinc = flag used by the detect option to know if the ncase  *
  30 *                 particle has or has not to be considered in coinci-  *
  31 *                 dence with the previous one (if they have the same   *
  32 *                 ncoinc they belong to the same event)                *
  33 *        lpseed = if .true. seeds will be printed for any history      *
  34 *        levtdt = if .true. a few data will be printed at each history *
  35 *----------------------------------------------------------------------*
  36 *
  37       LOGICAL LPSEED, LEVTDT
  38       COMMON / CASLIM / TLIM, TMEAN, TMAX, TTOT, NCASES, NSTARS, NCASE,
  39      &                  MBATCH(500), NBATCH, IBATCH, NCOINC, LPSEED,
  40      &                  LEVTDT
  41