ctXai.f File Reference

Go to the source code of this file.

Functions/Subroutines
real *8 function	ctxai (x)

Function/Subroutine Documentation

ctxai()

real*8 function ctxai

(

real*8

x

)

Definition at line 24 of file ctXai.f.

References d0, and e.

    implicit none
    real*8 x      ! input.  x = Xai = hv/m * H/Hc/2
    
    real*8 z

    if(x .lt. 0.25) then
        ctxai = 0.46 * exp(-4.d0/3.d0/x)
        elseif(x .lt. 1000.) then   
           z = log(x)
           ctxai =exp( (((((((((-0.1055848e-06*z + 0.3326052e-05)*z 
     *            -0.4298832e-04)*z +  0.3164778e-03 )*z
     *            -0.1791347e-02)*z +  0.1028788e-01 )*z 
     *            -0.5477092e-01)*z +  0.2251815 )*z    
     *            -0.6962186)*z     + 1.227734)*z -2.443217)       
    
    else
       ctxai = 0.60 * x**(-0.3333333333)
    endif