Warning, /include/higz/hipaw.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.2 2001/12/07 14:57:44 couet
0006 * - HILINK common block move to the hilink.inc include file.
0007 *
0008 * Revision 1.1.1.1 1996/02/14 13:10:13 mclareni
0009 * Higz
0010 *
0011 *
0012 #ifndef CERNLIB_HIGZ_HIPAW_INC
0013 #define CERNLIB_HIGZ_HIPAW_INC
0014 *
0015 *
0016 * hipaw.inc
0017 *
0018 *-- Author : O.Couet
0019 COMMON /PAWC/ NWPAW,IXPAWC,IHBOOK,IXHIGZ,IXKU,IFENCE(5)
0020 +, LMAIN, IPAW(9989)
0021 DIMENSION IQ(2),Q(2),LQ(8000)
0022 EQUIVALENCE (Q(1),IQ(1),LQ(9)),(LQ(1),LMAIN)
0023 COMMON /QUEST/ IQUEST(100)
0024 DIMENSION RQUEST(100)
0025 EQUIVALENCE (IQUEST(1),RQUEST(1))
0026 #include "higz/hilink.inc"
0027 COMMON /HIPTR/ ITBPTR,INTPTR,IFLPTR,ISTPTR
0028 +, IIAPTR,IRAPTR
0029 COMMON /HISIZE/ INSIZ,IISIZ,IFSIZ,ISSIZ
0030 +, IRNSIZ,IRISIZ,IRFSIZ,IRSSIZ
0031 COMMON /HINUM/ NBPICT,INBNT,INBLEV
0032 #endif
