Warning, /include/hbook/hcdifb.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/01/16 17:07:52 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_HBOOK_HCDIFB_INC
0010 #define CERNLIB_HBOOK_HCDIFB_INC
0011 *
0012 *
0013 * hcdifb.inc
0014 *
0015 *CMZ : 4.19/00 13/04/93 16.36.40 by Rene Brun
0016 *-- Author :
0017 C
0018 C----------------------------------------------------------------------
0019 C
0020 C HDIFFB specific common block
0021 C
0022 C----------------------------------------------------------------------
0023 C
0024 C
0025 C Option string: Contains all possible character options, used as input
0026 C for the option decoding utility HUOPTC. This returns a
0027 C 1-d array of length the number of options with contents
0028 C one or zero. One indicates that that option was selected.
0029 C For example, HUOPTC('A','ABC',SELECTED(3)) would return
0030 C (1,0,0) in SELECTED array. Likewise, 'CB' would return
0031 C (0,1,1).
0032 C
0033 C HDIFFB has 12 possible options, and the resulting 1-d
0034 C array, OPTS(12) is placed in the HDIFFB common block.
0035 C
0036 C----------------------------------------------------------------------
0037 C
0038 INTEGER NPARMS
0039 PARAMETER( NPARMS = 12 )
0040 CHARACTER*(NPARMS) OPTST
0041 INTEGER OFLOW, UFLOW, SOPTN, COPTN, AOPTN
0042 INTEGER NORMD,DEBUG,ZEROS,XUNDR,XOVER,YUNDR,YOVER
0043 C - possible options string
0044 PARAMETER( OPTST = 'NDOUSCAZRLTB' )
0045 C - option N, don't normalize contents
0046 C - option D, debugging printout
0047 C - option O, overflow option
0048 C - option U, underflow option
0049 C - option S, statistical comparison
0050 C - option C, compatibility test
0051 C - option A, absolute test
0052 C - option Z, skip ref bin = 0
0053 C - option R, X-Axis overflow
0054 C - option L, X-Axis underflow
0055 C - option T, Y-Axis overflow
0056 C - option B, Y-Axis underflow
0057 PARAMETER( NORMD = 1 , DEBUG = 2 , OFLOW = 3, UFLOW = 4,
0058 + SOPTN = 5, COPTN = 6 , AOPTN = 7 , ZEROS = 8, XOVER = 9,
0059 + XUNDR = 10, YOVER = 11, YUNDR = 12)
0060 C
0061 C----------------------------------------------------------------------
0062 C Global HDIFFB declarations
0063 C----------------------------------------------------------------------
0064 C
0065 INTEGER DUMPDV,IDR,IDD,BEGINI,BEGINJ,ENDI,ENDJ
0066 INTEGER OPTS(NPARMS),XSIZ
0067 REAL LAMBDA,LNBIGP,ACDIGT
0068 LOGICAL TWODIM,WEIGHR,WEIGHD,PROFIL,PSDMR,PSDMD
0069
0070 COMMON/HCDIFB/TWODIM,WEIGHR,WEIGHD,PROFIL,PSDMR,PSDMD,DUMPDV,
0071 + IDR,IDD,BEGINI,BEGINJ,ENDI,ENDJ,LAMBDA,OPTS,XSIZ,LNBIGP,ACDIGT
0072
0073
0074
0075
0076 #endif
