00001 *
00002 *
00003 *
00004 *
00005 *
00006
00007 *
00008 *
00009 *
00010 *
00011 *
00012 *
00013 *
00014 *
00015 *
00016 *
00017 *
00018 *
00019
00020 INTEGER m_version ! this is the actual version number
00021 PARAMETER( m_version = 140)
00022 *-----------------------------------------------------------------------------
00023 INTEGER m_idmax ! maximum number of bins
00024 PARAMETER( m_idmax=400)
00025 * Parameters m_buf1 and m_buf2 are lenths of buffors/headers in the histogram
00026 * m_buf1 is for 1-dim histogram and m_buf2 for 2-dim histo
00027 * m_buf2 is still not very consequently implemented
00028 * so m_buf1=m_buf2 is still required
00029 INTEGER m_buf1, m_buf2
00030 PARAMETER( m_buf1=24, m_buf2=24)
00031 INTEGER m_MaxNb
00032 PARAMETER( m_MaxNb = 50000) ! maximum numbers of bins
00033 INTEGER m_MaxNlab
00034 PARAMETER( m_MaxNlab = 100) ! maximum numbers labels in table 1-st col.
00035 *-----------------------------------------------------------------------------
00036 INTEGER m_LenmB
00037 PARAMETER (m_LenmB = 100000)
00038 DOUBLE PRECISION m_b
00039 INTEGER m_out, m_huni, m_length, m_LenInd, m_index
00040 CHARACTER*80 m_titlc
00041 INTEGER m_lint, m_ltx, m_KeyTit
00042 CHARACTER*80 m_titch ! title of plot, several lines
00043 INTEGER m_titlen ! number of lines
00044 PARAMETER( m_titlen =50)
00045 CHARACTER*1 m_BS ! backslash character
00046 INTEGER m_tline ! variable controling style of line or mark
00047 CHARACTER*80 m_Color ! string defining color
00048 INTEGER m_KeyCol ! control of color use, reset internaly!
00049 INTEGER m_KeyTbr ! control of table range, reset after use!
00050 INTEGER m_TabRan ! Table range for ploting
00051 INTEGER m_KeyTbl ! Tag for Table first column label
00052 CHARACTER*32 m_TabLab ! label in 1-st column of table
00053 *-----------------------------------------------------------------------------
00054 COMMON /c_GLK/
00055 $ m_b(m_LenmB), ! storage for all histograms
00056 $ m_out, ! general output for printouts
00057 $ m_huni, ! disk unit number for histos
00058 $ m_length, ! act. length of m_b (less than m_LenmB )
00059 $ m_LenInd, ! act. length of index, UNDER DEVELOPEMENT!
00060 $ m_index(m_idmax,3), ! index of histos
00061 $ m_titlc(m_idmax), ! titles of histos
00062 $ m_tline, ! general output for printouts
00063 $ m_lint, ! argument of gplint, sets various styles
00064 $ m_ltx, ! output unit for latex
00065 $ m_titch(m_titlen), ! title of plot, several lines
00066 $ m_Color, ! string defining color
00067 $ m_KeyTit, ! status key of plot Title
00068 $ m_KeyCol, ! status key of Color
00069 $ m_KeyTbr, ! status key of Table range for ploting
00070 $ m_TabRan(3), ! Table range for ploting
00071 $ m_KeyTbl, ! status for Table first column label
00072 $ m_TabLab(m_MaxNlab), ! Label in 1-st column of table
00073 $ m_BS ! backslash for LaTex (machine dependent!)
00074
00075 *
00076 *
00077 *
00078 *