fx Function

private function fx(g, p, x)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(in)			::	g
real(kind=rp),	intent(in)			::	p
real(kind=rp),	intent(in)			::	x

Return Value real(kind=rp)

Contents

Source Code

fx

Source Code

  FUNCTION fx(g,p,x)
    IMPLICIT NONE
    REAL(rp) :: fx
    REAL(rp), INTENT(IN) ::	g
    REAL(rp), INTENT(IN) :: p
    REAL(rp), INTENT(IN) :: x

    fx = g*x/SQRT(1.0_rp + (g*p)**2)
  END FUNCTION fx