gpamela/gcdes/pawc.inc

*
* $Id$
*
* $Log$
*
*
* pawc.inc
*
#if defined(GPAMELA_TYPE)
#include "pawct.inc"
#endif
      COMMON /PAWC/ NWPAW,IXPAWC,IHBOOK,IXHIGZ,IXKUIP,IFENCE(5),
     +              LLMAIN, WWS(9989)
      DIMENSION IQQ(2),QQ(2),LQQ(8000)
      EQUIVALENCE (QQ(1),IQQ(1),LQQ(9)),(LQQ(1),LLMAIN)
C
*
* pawc.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   pawc
#include "incend.inc"
#endif
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*
7	* pawc.inc
8	*
9	#if defined(GPAMELA_TYPE)
10	#include "pawct.inc"
11	#endif
12	COMMON /PAWC/ NWPAW,IXPAWC,IHBOOK,IXHIGZ,IXKUIP,IFENCE(5),
13	+ LLMAIN, WWS(9989)
14	DIMENSION IQQ(2),QQ(2),LQQ(8000)
15	EQUIVALENCE (QQ(1),IQQ(1),LQQ(9)),(LQQ(1),LLMAIN)
16	C
17	*
18	* pawc.inc
19	*
20	#if defined(GPAMELA_INCLUDE)
21	*
22	#include "incbeg.inc"
23	+ pawc
24	#include "incend.inc"
25	#endif