ck23.f File Reference

Go to the source code of this file.

Functions/Subroutines
real *8 function	ck23 (x)

Function/Subroutine Documentation

ck23()

real*8 function ck23

(

real*8

x

)

Definition at line 18 of file ck23.f.

References d, and e.

!          compute K2/3(x) within 5 digit accuracy.
!         this uses the result of makepolfork23
      implicit none
      real*8 x
      real*8 pi/3.14159265/, xl
      
      if(x .lt. 1.d-1) then
         ck23 = 1.074764 * x**(-2./3)
         if(x .gt. 0.001) then
            ck23 =ck23 * ( (( 24.87215 *x -4.845528)*x -0.2195235)*x          
     *          +  1.000107 )
         endif    
      else
         ck23 = exp(-x)* sqrt(pi/2/x)
         if(x .lt. 30.) then
            xl = log(x)
            ck23 =  ck23* ( (( -0.2016376e-02*xl + 0.1788832e-01)*xl
     *          -0.5794207e-01)*xl +  1.072769 )
         endif
      endif