C++ Interface to Tauola
GLK.h
1*//////////////////////////////////////////////////////////////////////////////
2*// //
3*// Pseudo-Class GLK //
4*// //
5*//////////////////////////////////////////////////////////////////////////////
6
7*//////////////////////////////////////////////////////////////////////////////
8*// ======================================================================= //
9*// ========================== _GLK_ ==================================== //
10*// ========== General Library of histogramming/ploting utilities ========= //
11*// ========== It is similar but not identical to HBOOK and HPLOT ========= //
12*// ======================================================================= //
13*//////////////////////////////////////////////////////////////////////////////
14*// //
15*// Version: 1.30 //
16*// Last correction: December 1997 //
17*// //
18*//////////////////////////////////////////////////////////////////////////////
19
20 INTEGER m_version ! this is version version number
21 PARAMETER( m_version = 130)
22*-----------------------------------------------------------------------------
23 INTEGER m_idmax ! maximum number of bins
24 PARAMETER( m_idmax=400)
25* Parameters m_buf1 and m_buf2 are lenths of buffors/headers in the histogram
26* m_buf1 is for 1-dim histogram and m_buf2 for 2-dim histo
27* m_buf2 is still not very consequently implemented
28* so m_buf1=m_buf2 is still required
29 INTEGER m_buf1, m_buf2
30 PARAMETER( m_buf1=24, m_buf2=24)
31 INTEGER m_MaxNb
32 PARAMETER( m_MaxNb = 1000) ! maximum numbers of bins
33*-----------------------------------------------------------------------------
34 INTEGER m_LenmB
35 PARAMETER (m_LenmB = 50000)
36 DOUBLE PRECISION m_b
37 INTEGER m_out, m_huni, m_length, m_LenInd, m_index
38 CHARACTER*80 m_titlc
39 INTEGER m_lint, m_ltx, m_KeyTit
40 CHARACTER*80 m_titch ! title of plot, several lines
41 INTEGER m_titlen ! number of lines
42 PARAMETER( m_titlen =50)
43 CHARACTER*1 m_BS ! backslash character
44 INTEGER m_tline ! variable controling style of line or mark
45 CHARACTER*80 m_Color ! string defining color
46 INTEGER m_KeyCol ! control of color use, reset internaly!
47 INTEGER m_KeyTbr ! control of table range, reset after use!
48 INTEGER m_TabRan ! Table range for ploting
49*-----------------------------------------------------------------------------
50 COMMON /c_GLK/
51 $ m_b(m_LenmB), ! storage for all histograms
52 $ m_out, ! general output for printouts
53 $ m_huni, ! disk unit number for histos
54 $ m_length, ! act. length of m_b (less than m_LenmB )
55 $ m_LenInd, ! act. length of index, UNDER DEVELOPEMENT!
56 $ m_index(m_idmax,3), ! index of histos
57 $ m_titlc(m_idmax), ! titles of histos
58 $ m_tline, ! general output for printouts
59 $ m_lint, ! argument of gplint, sets various styles
60 $ m_ltx, ! output unit for latex
61 $ m_titch(m_titlen), ! title of plot, several lines
62 $ m_Color, ! string defining color
63 $ m_KeyTit, ! status key of plot Title
64 $ m_KeyCol, ! status key of Color
65 $ m_KeyTbr, ! status key of Table range for ploting
66 $ m_TabRan(3), ! Table range for ploting
67 $ m_BS ! backslash for LaTex (machine dependent!)
68
69*//////////////////////////////////////////////////////////////////////////////
70*// //
71*// End of CLASS GLG //
72*//////////////////////////////////////////////////////////////////////////////