pi Function

private function pi()

PI returns the value of pi.

Arguments

None

Return Value real


Called by

proc~~pi~~CalledByGraph proc~pi pi proc~test03 test03 proc~test03->proc~pi program~test_gnufor test_gnufor program~test_gnufor->proc~test03

Source Code

function pi ( )
!
!*******************************************************************************
!
!! PI returns the value of pi.
!
!
!  Modified:
!
!    04 December 1998
!
!  Author:
!
!    John Burkardt
!
!  Parameters:
!
!    Output, real PI, the value of pi.
!
  implicit none
!
  real pi
!
  pi = 3.14159265358979323846264338327950288419716939937510E+00

  return
endfunction pi