1c $Id$
2c
3      real*8 zero,small,half,one,two,four
4      parameter(zero=0.0d0)
5      parameter(small=1.0d-6)
6      parameter(half=5.0d-1)
7      parameter(one=1.0d0)
8      parameter(two=2.0d0)
9      parameter(four=4.0d0)
10c
11      integer me,np,nodpme,lslab(512),imfft
12      common/pme_nod/me,np,nodpme,lslab,imfft
13c
14      integer i_bmod,l_bmod,i_barr,l_barr
15      integer i_grd1,l_grd1,i_grd2,l_grd2,i_grd,l_grd
16      integer i_grdt,l_grdt,i_grdh,l_grdh
17      integer i_lnod,l_lnod,i_kfr,l_kfr,i_kto,l_kto
18      integer i_nodp,l_nodp,i_knod,l_knod,i_lsld,l_lsld
19      integer i_slmax,l_slmax
20      integer i_map1,l_map1,i_map2,l_map2,i_slab,l_slab
21      integer ga_flg
22      common/pme_ptr/i_bmod,l_bmod,i_barr,l_barr,
23     + i_grd1,l_grd1,i_grd2,l_grd2,i_grd,l_grd,
24     + i_grdt,l_grdt,i_grdh,l_grdh,
25     + i_lnod,l_lnod,i_kfr,l_kfr,i_kto,l_kto,
26     + i_nodp,l_nodp,i_knod,l_knod,i_lsld,l_lsld,
27     + i_slmax,l_slmax,
28     + i_map1,l_map1,i_map2,l_map2,i_slab,l_slab,
29     + ga_flg
30c
31      integer mwa,mwm,msa,ngx,ngy,ngz,mgx,mgy,mgz,ngzloc,ngmax,morder
32      integer mgrx,mgry,mgrz,ngrx,ngry,ngrz,nbget
33      logical lpnode,lcorr(3)
34      common/pme_dim/mwa,mwm,msa,ngx,ngy,ngz,mgx,mgy,mgz,ngzloc,
35     + ngmax,morder,mgrx,mgry,mgrz,ngrx,ngry,ngrz,nbget,
36     + lpnode,lcorr
37c
38      real*8 pi,twopi,alpha,ecorr(3)
39      integer icntrl
40      common/pme_var/pi,twopi,alpha,ecorr,icntrl
41