Code |
c
c###################################################################
c
subroutine jrrec1(pt, pcf, kncf, pfit, kermsg)
c
c this is a subroutine to calculate a reaction rate coefficient
c in cm[3]/s as function of electron tempreature in ev for
c radiative recombination.
c
c pcf is the coefficient data array, where
c
c pcf(1) = the threshold energy for the transition
c
c pcf(2) = coefficient a(nl)
c
c pcf(3) = coefficient chi(nl)
c
c pt = tempreature (ev)
c
c kermsg = blank if no errors
c
c pfit = reaction rate coefficient in cm[3]/s
c
c written by j. j. smith , iaea atomic and molecular data unit
c
c------------------------------------------------------------------------
c
double precision pt, pcf, pfit
real n
dimension pcf(3)
character*(*) kermsg
data ry/13.58/
eth=pcf(1)
a=pcf(2)
chi=pcf(3)
beta=eth/pt
c
pfit = a * 1.0e-14 * sqrt(eth/ry) * (beta**1.5) / (beta + chi)
return
c
end |