HERWIG/jimmy/divon4/dvnbkd.F

   1 *CMZ :          23/08/93  13.30.10  by  Jonathan Butterworth
   2 *-- Author :
   3       SUBROUTINE DVNBKD
   4 C  *******************************************************************
   5 C  *                                                                 *
   6 C  *                                                                 *
   7 C  *     -   D I V O N N E 4  -  PROGRAM FOR MULTIPLE INTEGRATION    *
   8 C  *                                           AND                   *
   9 C  *                               ADAPTIVE IMPORTANCE SAMPLING      *
  10 C  *                                            BY                   *
  11 C  *                                   NESTED PARTITIONING.          *
  12 C  *                                                                 *
  13 C  *                                                                 *
  14 C  *                                                                 *
  15 C  *                                                                 *
  16 C  *     CODED BY:     J. H. FRIEDMAN, SLAC/CERN.                    *
  17 C  *                                  AND                            *
  18 C  *                   M. H. WRIGHT, STANFORD UNIVERSITY             *
  19 C  *     MODIFIED FOR CERN BY T.LINDELOF, JULY 1981                  *
  20 C  *     FORTRAN 77 UPDATE BY T.LINDELOF, MAY 1982                   *
  21 C  *******************************************************************
  22 C
  23 C   INITIALIZATION ROUTINE TO 'SIMULATE' BLOCK DATA
  24 C     BLOCK DATA
  25       COMMON /D151DT/ IDATE
  26       REAL*8 IDATE
  27       COMMON /PRINT/ IPRINT
  28       COMMON /ISTRGE/ MXRGNS , ISTOR(12000)
  29       COMMON /RSTRGE/ RSTSZE,RSTOR(18001)
  30       INTEGER RSTSZE
  31       COMMON /QUADRE/ IDEG
  32       COMMON /START/ ISTART
  33       COMMON /EXFILE/ NFILE
  34       COMMON /DISPOS/ IDISP
  35       COMMON /DEPTHS/ ISTDPH , INCDPH
  36       COMMON /SAMPLE/ NPOINT
  37       COMMON /CUTOLS/ BNDTOL, FRACT, REGNTL, FNLTOL
  38       COMMON /BNDLMT/ FLOBD,FUPBD
  39       COMMON /PRSTOP/ NSTOP
  40       COMMON /ZEETRM/ ITRMF
  41 C
  42       DATA INITL/0/
  43       SAVE INITL
  44       SAVE
  45       IF(INITL.NE.0) RETURN
  46       INITL=1
  47 C
  48       CALL JMUCPY(8H17/12/80,IDATE,2)
  49       IPRINT=1
  50       MXRGNS=3000
  51       RSTSZE=18001
  52       IDEG=0
  53       ISTART=1
  54       NFILE=1
  55       IDISP=0
  56       ISTDPH=3
  57       INCDPH=5
  58       NPOINT=50
  59       BNDTOL=.05
  60       FRACT=.5
  61       REGNTL=.9
  62       FNLTOL=.1
  63       FLOBD=-9.9E37
  64       FUPBD= 9.9E37
  65       NSTOP=5
  66       ITRMF=0
  67 C
  68       CALL DVNOPT
  69 C
  70       RETURN
  71       END