CLogei Function

  1. korc_collisions.f90
  2. korc_collisions
  3. CLogei

public function CLogei(v, ne, Te)

Arguments

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

ne is in m^-3 and below is converted to cm^-3
real(kind=rp), intent(in) :: Te

Return Value real(kind=rp)


Contents

Source Code

CLogei

Source Code

  function CLogei(v,ne,Te)
    
    REAL(rp), INTENT(IN) 	:: v
    REAL(rp), INTENT(IN) 	:: ne
    !! ne is in m^-3 and below is converted to cm^-3
    REAL(rp), INTENT(IN) 	:: Te ! In Joules
    REAL(rp) 				:: CLogei
    REAL(rp)  :: k=5._rp
    REAL(rp)  :: gam,p

    gam=1/sqrt(1-v**2)
    p=gam*v
    
    CLogei = CLog0(ne,Te)+log(1+(2*p/VTe(Te))**k)/k
  end function CLogei