Lines Matching defs:setcartesianmeshcoords
193 subroutine setcartesianmeshcoords(fe_dim, num_xyz, mesh_degree, mesh_coords, exact_volume, err) subroutine
197 integer fe_dim
198 integer num_xyz(3)
199 integer mesh_degree
200 integer mesh_coords
201 real*8 exact_volume
202 integer err
204 integer p local
205 integer scalar_size
206 integer coords_size
207 integer r_nodes
208 integer d_1d
209 integer nd(3)
210 real*8, dimension (:), allocatable :: nodes, qpts
211 real*8, dimension (:), allocatable :: coords
212 integer*8 offset
213 integer i, j local