fun Function

private function fun(v)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(in)			::	v

Return Value real(kind=rp)

Contents

Source Code

fun

Source Code

  function fun(v)
    REAL(rp), INTENT(IN) 	:: v
    REAL(rp) 				:: fun
    REAL(rp) 				:: x

    x = v/cparams_ss%VTe
    fun = 2.0_rp*( 1.0_rp/x + x )*EXP(-x**2)/SQRT(C_PI) - ERF(x)/x**2 - psi(v)
  end function fun