JIMMY first commit.
[u/mrichter/AliRoot.git] / 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