Home
last modified time | relevance | path

Searched refs:m_pi (Results 1 – 1 of 1) sorted by relevance

/libCEED/examples/ceed/
H A Dex1-volume-f.f90164 real*8 m_pi, m_pi_2 local
165 parameter(m_pi = 3.14159265358979323846d0)
176 coords(i) = 0.5d0 + (1.d0/sqrt(3.d0)) * sin((2.d0/3.d0) * m_pi * (coords(i) - 0.5d0))
188 exact_volume = 3.d0/4.d0 * m_pi