fun Function

  1. korc_collisions.f90
  2. korc_collisions
  3. fun

private function fun(v)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: v

Return Value real(kind=rp)


Calls

proc~~fun~~CallsGraph proc~fun fun proc~psi psi proc~fun->proc~psi

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