Warning, /include/paw/pawcfu.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.2 1996/03/01 16:49:55 cernlib
0006 * All includes had picked up a completely wrong #if defined(CERNLIB_UNIX), ie.
0007 * the real commons/declarations were missing on non-unix.
0008 *
0009 * Revision 1.1.1.1 1996/03/01 11:38:49 mclareni
0010 * Paw
0011 *
0012 *
0013 #ifndef CERNLIB_PAW_PAWCFU_INC
0014 #define CERNLIB_PAW_PAWCFU_INC
0015 *
0016 *
0017 * pawcfu.inc
0018 *
0019 *CMZ : 2.07/00 04/05/95 17.01.51 by Julian Bunn
0020 *-- Author :
0021 PARAMETER (MAXCLL=512,MAXLAB=1000,MAXFCU=2000,MAXSTK=13)
0022 PARAMETER (MXVAR=100, MAXFCC=44)
0023 *
0024 INTEGER JADF
0025 COMMON/PAWCF2/JADF, IDCHAR(3), NVART, NVART2, NVART3, IDFNEW,
0026 $ LABELX, LABELY, LABELZ, ICTYPE,
0027 $ INDX(MAXCLL), INDX2(MAXCLL), ITYPE(MAXCLL), ISIZE(MAXCLL),
0028 $ IELEM(MAXCLL), IOFFST(MAXCLL), IOFFST2(MAXCLL)
0029 *
0030 CHARACTER*32
0031 $ CSTACK(100) , CHLABX(MAXLAB), CHLABY(MAXLAB),
0032 $ CHLABZ(MAXLAB), CHFCU , VAR(MAXCLL),
0033 $ HFCU(100)
0034 COMMON/PAWCF3/VAR,CSTACK,CHLABX,CHLABY,CHLABZ,CHFCU,HFCU
0035 *
0036 * we allow up to 4 array expressions in a selection (bbbwaaaaa..)
0037 REAL RFCU(MAXFCU*4)
0038 REAL*8 DFCU
0039 INTEGER IFCU
0040 LOGICAL LFCU
0041 COMMON/PAWCF4/DFCU,IFCU,LFCU,RFCU
0042 *
0043 INTEGER CFUINFO(0:MXVAR,6),CFUPOS
0044 * we allow MAXSTK arrays of maximum length MAXFCU
0045 REAL RSTACK(0:MAXSTK,0:MAXFCU)
0046 * and MAXSTK character arrays of maximum length MAXFCC
0047 CHARACTER*32 CHPILE(0:MAXSTK,0:MAXFCC)
0048 LOGICAL NOSEL
0049 COMMON/PAWCF5/RSTACK,CFUINFO,CFUPOS,NOSEL
0050 COMMON/PAWCF6/CHPILE
0051 *
0052
0053 #endif
