1!
2! $Id$
3!
4
5!     **** paw_force_data.fh common blocks ****
6
7      integer    paw_force_cx_s(4)     ! scrambled overlap coefficients
8      integer    paw_force_cx_u(4)     ! unscrambled overlap coefficients
9
10      integer    paw_force_cy_s(4)
11      integer    paw_force_cy_u(4)
12
13      integer    paw_force_cz_s(4)
14      integer    paw_force_cz_u(4)
15
16      integer    i_paw_force_w(4)
17      integer    paw_force_wx(4)       ! overlap weights
18      integer    paw_force_wx_u(4)     ! overlap weights spin-up
19      integer    paw_force_wx_d(4)     ! overlap weights spin-down
20
21      integer    paw_force_wy(4)
22      integer    paw_force_wy_u(4)
23      integer    paw_force_wy_d(4)
24
25      integer    paw_force_wz(4)
26      integer    paw_force_wz_u(4)
27      integer    paw_force_wz_d(4)
28
29      integer    paw_force_fx_pw(4)
30      integer    paw_force_fy_pw(4)
31      integer    paw_force_fz_pw(4)
32
33      integer    paw_force_fx_atom(4)
34      integer    paw_force_fy_atom(4)
35      integer    paw_force_fz_atom(4)
36
37      integer    paw_force_fx_constr(4)
38      integer    paw_force_fy_constr(4)
39      integer    paw_force_fz_constr(4)
40
41      integer    paw_force_f_mult(4)
42
43
44      common / paw_force /
45     >                    paw_force_cx_s,
46     >                    paw_force_cx_u,
47     >                    paw_force_cy_s,
48     >                    paw_force_cy_u,
49     >                    paw_force_cz_s,
50     >                    paw_force_cz_u,
51     >                    i_paw_force_w,
52     >                    paw_force_wx,
53     >                    paw_force_wx_u,
54     >                    paw_force_wx_d,
55     >                    paw_force_wy,
56     >                    paw_force_wy_u,
57     >                    paw_force_wy_d,
58     >                    paw_force_wz,
59     >                    paw_force_wz_u,
60     >                    paw_force_wz_d,
61     >                    paw_force_fx_pw,
62     >                    paw_force_fy_pw,
63     >                    paw_force_fz_pw,
64     >                    paw_force_fx_atom,
65     >                    paw_force_fy_atom,
66     >                    paw_force_fz_atom,
67     >                    paw_force_fx_constr,
68     >                    paw_force_fy_constr,
69     >                    paw_force_fz_constr,
70     >                    paw_force_f_mult
71
72
73