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