cmPairSpec.f File Reference

Go to the source code of this file.

Functions/Subroutines
real *8 function	cmpairspec (xai, x)

Function/Subroutine Documentation

cmpairspec()

real*8 function cmpairspec	(	real*8	xai,
		real*8	x
	)

Definition at line 15 of file cmPairSpec.f.

      implicit none
!         This computes electron energy distribution function
!      The value dose not contain the coefficient which is
!      SyncCoef/(3Piroot(3))/Eg -->unit is  /m
      real*8 xai  ! input. Earger's (1966) xai = Eg/m * B/Bc/2
      real*8 x    ! input. Fractional electron energy. Ee/Eg
!
      real*8 y, v, ck23

      if(x .eq. 1. .or. x .eq. 0.) then
         cmpairspec = 0.
      else
         v = 1. - 2*x
         y = 4./(3.*xai) /(1.-v**2)
         cmpairspec = (9.- v*v)/(1.-v*v) * ck23(y)
      endif