9 INTEGER,
POINTER,
DIMENSION(:) :: ia, ja
13 INTEGER :: nb_periodic_pairs
14 INTEGER,
DIMENSION(:,:),
POINTER :: list_periodic
15 REAL(KIND=8),
DIMENSION(:,:),
POINTER :: vect_e
19 INTEGER,
DIMENSION(:),
POINTER :: ia, ja
20 INTEGER,
DIMENSION(:,:),
POINTER :: loc_to_glob
22 INTEGER,
DIMENSION(:),
POINTER :: np
23 INTEGER,
DIMENSION(:),
POINTER :: dom_np
39 REAL(KIND=8),
DIMENSION(:, :),
POINTER ::
ww 40 REAL(KIND=8),
DIMENSION(:, :),
POINTER ::
wws 41 REAL(KIND=8),
DIMENSION(:, :),
POINTER :: wwsi
42 REAL(KIND=8),
DIMENSION(:, :, :, :),
POINTER ::
dw 43 REAL(KIND=8),
DIMENSION(:, :, :, :),
POINTER :: dwni
44 REAL(KIND=8),
DIMENSION(:, :, :),
POINTER ::
rnorms 45 REAL(KIND=8),
DIMENSION(:, :, :),
POINTER :: rnorms_v
46 REAL(KIND=8),
DIMENSION(:, :, :, :),
POINTER :: rnormsi
47 REAL(KIND=8),
DIMENSION(:, :),
POINTER ::
rj 48 REAL(KIND=8),
DIMENSION(:, :),
POINTER :: rji
49 REAL(KIND=8),
DIMENSION(:, :),
POINTER ::
rjs 50 REAL(KIND=8),
DIMENSION(:, :, :, :),
POINTER ::
dw_s 51 REAL(KIND=8),
DIMENSION(:, :, :, :),
POINTER ::
dwps 52 REAL(KIND=8),
DIMENSION(:, :, :, :),
POINTER ::
dws 58 INTEGER,
POINTER,
DIMENSION(: ) :: pnt
75 INTEGER,
POINTER,
DIMENSION(:,:) :: jj, jjs, iis
76 INTEGER,
POINTER,
DIMENSION(:,:,:):: jji
77 INTEGER,
POINTER,
DIMENSION(:,:) :: jjsi
78 INTEGER,
POINTER,
DIMENSION(:) :: j_s
79 REAL(KIND=8),
POINTER,
DIMENSION(:,:) :: rr
80 INTEGER,
POINTER,
DIMENSION(:,:) :: neigh
81 INTEGER,
POINTER,
DIMENSION(:,:) :: neighi
82 INTEGER,
POINTER,
DIMENSION(:) :: sides, neighs
83 INTEGER,
POINTER,
DIMENSION(:) :: i_d
85 INTEGER,
POINTER,
DIMENSION(:) :: loc_to_glob
86 INTEGER,
POINTER,
DIMENSION(:) :: disp, domnp
87 INTEGER :: dom_me, dom_np, dom_mes
91 INTEGER :: me, mes, np, nps, mi
95 REAL(KIND=8),
POINTER,
DIMENSION(:) :: hloc
96 REAL(KIND=8),
POINTER,
DIMENSION(:) :: hloc_gauss
97 REAL(KIND=8) :: global_diameter
98 REAL(KIND=8),
POINTER,
DIMENSION(:) :: hm
102 INTEGER,
POINTER,
DIMENSION(:) :: slave_elem
103 INTEGER,
POINTER,
DIMENSION(:) :: list_slave_node
104 INTEGER,
POINTER,
DIMENSION(:,:) :: master_node
105 INTEGER,
POINTER,
DIMENSION(:,:) :: slave_node
110 INTEGER,
POINTER,
DIMENSION(:) :: master
111 INTEGER,
POINTER,
DIMENSION(:) :: slave
112 INTEGER,
POINTER,
DIMENSION(:) :: interface
113 INTEGER,
POINTER,
DIMENSION(:,:) :: master_node
118 INTEGER,
POINTER,
DIMENSION(:) :: mesh1
119 INTEGER,
POINTER,
DIMENSION(:) :: mesh2
120 INTEGER,
POINTER,
DIMENSION(:,:) :: jjs1
121 INTEGER,
POINTER,
DIMENSION(:,:) :: jjs2
real(kind=8), dimension(:,:), pointer rj
real(kind=8), dimension(:,:,:), pointer rnorms
real(kind=8), dimension(:,:,:,:), pointer dws
real(kind=8), dimension(:,:,:,:), pointer dwps
real(kind=8), dimension(:,:), pointer rjs
real(kind=8), dimension(:,:), pointer wws
real(kind=8), dimension(:,:,:,:), pointer dw
real(kind=8), dimension(:,:), pointer ww
real(kind=8), dimension(:,:,:,:), pointer dw_s