BOSS 7.0.1
BESIII Offline Software System
Loading...
Searching...
No Matches
Vesk1.h
Go to the documentation of this file.
1*//////////////////////////////////////////////////////////////////////////////
2*// //
3*// Pseudo-CLASS Vesk1 //
4*// //
5*// Purpose: generate one-dimensional arbitrary distribution rho(x) //
6*// where x is in the range (0,1). //
7*// //
8*// //
9*// //
10*// //
11*//////////////////////////////////////////////////////////////////////////////
12*
13* Class members:
14*
15 INTEGER jlim1,jlim2
16**** PARAMETER( jlim1=64, jlim2=1024) ! usualy enough
17**** PARAMETER( jlim1=256, jlim2=4096) ! denser grid
18 PARAMETER( jlim1=512, jlim2=8192) ! even denser grid, standard
19**** PARAMETER( jlim1=1024, jlim2=16384) ! very dense grid but slow
20
21 DOUBLE PRECISION xx,yy,zint,zsum
22 DOUBLE PRECISION swt,sswt
23 INTEGER nevs,jmax
24 COMMON /Vesk1/
25 * xx( jlim2+1), ! x-grid
26 * yy( jlim2+1), ! f(x) values
27 * zint(jlim2+1), ! cumulative integral from x=xx(1)=0 to x=xx(j)
28 * zsum, ! estimated integral (zint is normalized to one)
29 * swt, ! sum of weights
30 * sswt, ! sum of squares of weights
31 * nevs, ! serial counter
32 * jmax ! grid length
33 SAVE
34*
35*
36* Class procedures:
37*
38* SUBROUTINE Vesk1_Initialize
39* SUBROUTINE Vesk1_Make
40* SUBROUTINE Vesk1_Finalize
41*
42*//////////////////////////////////////////////////////////////////////////////
43*// //
44*// End of CLASS Vesk1 //
45*//////////////////////////////////////////////////////////////////////////////
x
Double_t x[10]
Definition: DataBase/tau_mode.c:57
PRECISION
#define PRECISION
Definition: EvtDalitzReso.cc:31
one
const DifNumber one
members
*************Class members
Definition: Vesk1.h:15
PARAMETER
*************Class jlim2 **** PARAMETER(jlim1=64, jlim2=1024) ! usualy enough ****PARAMETER(jlim1
INTEGER
IMPLICIT REAL *A O Z IMPLICIT INTEGER(I-N) C.... COMMONBALOCKS FOR MODE COMMON/MODEXS/ICH common/bornXS/xborn REAL *8 USER_XX(1000)