Lines Matching refs:coords
162 real*8 coords(mesh_size) local
176 coords(i) = 0.5d0 + (1.d0/sqrt(3.d0)) * sin((2.d0/3.d0) * m_pi * (coords(i) - 0.5d0))
182 u = 1.d0 + coords(i)
183 v = m_pi_2 * coords(i + scalar_size)
185 coords(i) = u * cos(v)
186 coords(i + scalar_size) = u * sin(v)
211 real*8, dimension (:), allocatable :: coords local
223 allocate (coords(coords_size))
239 … coords(scalar_size * (j - 1) + i) = ((d_1d/(p - 1)) + nodes(mod(d_1d, p - 1) + 1))/num_xyz(j)
245 call transformmeshcoords(fe_dim, coords_size, coords, exact_volume, err)
248 call ceedvectorsetarray(mesh_coords, ceed_mem_host, ceed_copy_values, coords, offset, err)
249 deallocate(coords)