Lines Matching refs:exact_volume
163 real*8 exact_volume local
178 exact_volume = 1.d0
188 exact_volume = 3.d0/4.d0 * m_pi
201 real*8 exact_volume local
245 call transformmeshcoords(fe_dim, coords_size, coords, exact_volume, err)
264 real*8 exact_volume, computed_volume variable
414 call setcartesianmeshcoords(fe_dim, num_xyz, mesh_degree, mesh_coords, exact_volume, err)
521 write (*, *) 'Exact mesh volume :', exact_volume
523 write (*, *) 'Volume error :', (exact_volume - computed_volume)
527 if (abs(exact_volume - computed_volume) > 200.d0 * 1e-15) then
529 write (*, *) 'Volume error : ', (exact_volume - computed_volume)
533 if (abs(exact_volume - computed_volume) > 1e-5) then
535 write (*, *) 'Volume error : ', (exact_volume - computed_volume)