[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / divon / dvnbkd.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:03:23  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE DVNBKD
C  *******************************************************************
C  *                                                                 *
C  *                                                                 *
C  *     -   D I V O N N E 4  -  PROGRAM FOR MULTIPLE INTEGRATION    *
C  *                                           AND                   *
C  *                               ADAPTIVE IMPORTANCE SAMPLING      *
C  *                                            BY                   *
C  *                                   NESTED PARTITIONING.          *
C  *                                                                 *
C  *                                                                 *
C  *                                                                 *
C  *                                                                 *
C  *     CODED BY:     J. H. FRIEDMAN, SLAC/CERN.                    *
C  *                                  AND                            *
C  *                   M. H. WRIGHT, STANFORD UNIVERSITY             *
C  *     MODIFIED FOR CERN BY T.LINDELOF, JULY 1981                  *
C  *     FORTRAN 77 UPDATE BY T.LINDELOF, MAY 1982                   *
C  *******************************************************************
C
C   INITIALIZATION ROUTINE TO 'SIMULATE' BLOCK DATA
C     BLOCK DATA
#include "d151dt.inc"
      COMMON /PRINT/ IPRINT
      COMMON /ISTRGE/ MXRGNS , ISTOR(12000)
      COMMON /RSTRGE/ RSTSZE,RSTOR(18001)
      INTEGER RSTSZE
      COMMON /QUADRE/ IDEG
      COMMON /START/ ISTART
      COMMON /EXFILE/ NFILE
      COMMON /DISPOS/ IDISP
      COMMON /DEPTHS/ ISTDPH , INCDPH
      COMMON /SAMPLE/ NPOINT
      COMMON /CUTOLS/ BNDTOL, FRACT, REGNTL, FNLTOL
      COMMON /BNDLMT/ FLOBD,FUPBD
      COMMON /PRSTOP/ NSTOP
      COMMON /ZEETRM/ ITRMF
C
      DATA INITL/0/
      SAVE INITL
      IF(INITL.NE.0) RETURN
      INITL=1
C
      IDATE='17/12/80'
      IPRINT=1
      MXRGNS=3000
      RSTSZE=18001
      IDEG=0
      ISTART=1
      NFILE=1
      IDISP=0
      ISTDPH=3
      INCDPH=5
      NPOINT=50
      BNDTOL=.05
      FRACT=.5
      REGNTL=.9
      FNLTOL=.1
#if defined(CERNLIB_IBM)||defined(CERNLIB_SINGLE)
      FLOBD=-9.9E71
      FUPBD=9.9E71
#endif
#if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_IBM))
      FLOBD=-9.9E37
      FUPBD= 9.9E37
#endif
      NSTOP=5
      ITRMF=0
C
      CALL DVNOPT
C
      RETURN
      END
Commit	Line	Data
fe4da5cc	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