CLogee Function

  1. korc_collisions.f90
  2. korc_collisions
  3. CLogee

public function CLogee(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

CLogee

Source Code

  function CLogee(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) 				:: CLogee
    REAL(rp)  :: k=5._rp
    REAL(rp)  :: gam

    gam=1/sqrt(1-v**2)
    
    CLogee = CLog0(ne,Te)+ &
         log(1+(2*(gam-1)/VTe(Te)**2)**(k/2._rp))/k

!    write(6,*) gam,CLogee
  end function CLogee