Lines Matching defs:buildcartesianrestriction
75 subroutine buildcartesianrestriction(ceed, fe_dim, num_xyz, degree, num_comp, mesh_size, num_qpts, … subroutine
80 integer ceed
81 integer fe_dim
82 integer num_xyz(3)
83 integer degree
84 integer num_comp
85 integer mesh_size
86 integer num_qpts
87 integer restriction
88 integer q_data_restriction
89 integer err
91 integer p local
92 integer num_nodes
93 integer elem_qpts
94 integer num_elem
95 integer scalar_size
96 integer nd(3)
97 integer elem_nodes_size
98 integer e_xyz(3), re
99 integer g_nodes, g_nodes_stride, r_nodes
100 integer, dimension (:), allocatable :: elem_nodes
102 integer i, j, k local