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	cafagna	3.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