Warning, /include/sigma/pawc.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1995/12/12 14:36:22 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_SIGMA_PAWC_INC
0010 #define CERNLIB_SIGMA_PAWC_INC
0011 *
0012 *
0013 * pawc.inc
0014 *
0015 *CMZ : 1.08/00 18/11/92 14.57.21 by Unknown
0016 *-- Author :
0017 COMMON/PAWC/ NWPAW,IXPAWC,IHBOOK,IXHIGZ,IXKUIP,IFENCE(5),
0018 + LMAIN(1), WS(9989)
0019 DIMENSION IQ(2),Q(2),LQ(8000)
0020 EQUIVALENCE (LQ(1),LMAIN(1))
0021 EQUIVALENCE (IQ(1),LQ(9))
0022 EQUIVALENCE ( Q(1),LQ(9))
0023 COMMON/QUEST/ IQUEST(100)
0024 COMMON/SIFKCO/ IOCEL,IONAME,IOPAR,IOPARV,IOVEC,IOVECN
0025 DIMENSION DYNA (4096)
0026 EQUIVALENCE (Q(1),DYNA(1))
0027 #include "sigma/sitab.inc"
0028
0029 #endif
