MINICERN/mathlib/gen/divon/dvnbkd.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:03:23  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE DVNBKD
  11 C  *******************************************************************
  12 C  *                                                                 *
  13 C  *                                                                 *
  14 C  *     -   D I V O N N E 4  -  PROGRAM FOR MULTIPLE INTEGRATION    *
  15 C  *                                           AND                   *
  16 C  *                               ADAPTIVE IMPORTANCE SAMPLING      *
  17 C  *                                            BY                   *
  18 C  *                                   NESTED PARTITIONING.          *
  19 C  *                                                                 *
  20 C  *                                                                 *
  21 C  *                                                                 *
  22 C  *                                                                 *
  23 C  *     CODED BY:     J. H. FRIEDMAN, SLAC/CERN.                    *
  24 C  *                                  AND                            *
  25 C  *                   M. H. WRIGHT, STANFORD UNIVERSITY             *
  26 C  *     MODIFIED FOR CERN BY T.LINDELOF, JULY 1981                  *
  27 C  *     FORTRAN 77 UPDATE BY T.LINDELOF, MAY 1982                   *
  28 C  *******************************************************************
  29 C
  30 C   INITIALIZATION ROUTINE TO 'SIMULATE' BLOCK DATA
  31 C     BLOCK DATA
  32 #include "d151dt.inc"
  33       COMMON /PRINT/ IPRINT
  34       COMMON /ISTRGE/ MXRGNS , ISTOR(12000)
  35       COMMON /RSTRGE/ RSTSZE,RSTOR(18001)
  36       INTEGER RSTSZE
  37       COMMON /QUADRE/ IDEG
  38       COMMON /START/ ISTART
  39       COMMON /EXFILE/ NFILE
  40       COMMON /DISPOS/ IDISP
  41       COMMON /DEPTHS/ ISTDPH , INCDPH
  42       COMMON /SAMPLE/ NPOINT
  43       COMMON /CUTOLS/ BNDTOL, FRACT, REGNTL, FNLTOL
  44       COMMON /BNDLMT/ FLOBD,FUPBD
  45       COMMON /PRSTOP/ NSTOP
  46       COMMON /ZEETRM/ ITRMF
  47 C
  48       DATA INITL/0/
  49       SAVE INITL
  50       IF(INITL.NE.0) RETURN
  51       INITL=1
  52 C
  53       IDATE='17/12/80'
  54       IPRINT=1
  55       MXRGNS=3000
  56       RSTSZE=18001
  57       IDEG=0
  58       ISTART=1
  59       NFILE=1
  60       IDISP=0
  61       ISTDPH=3
  62       INCDPH=5
  63       NPOINT=50
  64       BNDTOL=.05
  65       FRACT=.5
  66       REGNTL=.9
  67       FNLTOL=.1
  68 #if defined(CERNLIB_IBM)||defined(CERNLIB_SINGLE)
  69       FLOBD=-9.9E71
  70       FUPBD=9.9E71
  71 #endif
  72 #if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_IBM))
  73       FLOBD=-9.9E37
  74       FUPBD= 9.9E37
  75 #endif
  76       NSTOP=5
  77       ITRMF=0
  78 C
  79       CALL DVNOPT
  80 C
  81       RETURN
  82       END