Searched refs:computed_volume (Results 1 – 1 of 1) sorted by relevance
264 real*8 exact_volume, computed_volume variable510 computed_volume = 0.d0514 computed_volume = computed_volume + v_array(offset + i)522 write (*, *) 'Computed mesh volume :', computed_volume523 write (*, *) 'Volume error :', (exact_volume - computed_volume)527 if (abs(exact_volume - computed_volume) > 200.d0 * 1e-15) then529 write (*, *) 'Volume error : ', (exact_volume - computed_volume)533 if (abs(exact_volume - computed_volume) > 1e-5) then535 write (*, *) 'Volume error : ', (exact_volume - computed_volume)