19 parameter(pi = 3.14159265)
21 parameter(eps0 = 8.8542e-12)
23 parameter(cspeed = 2.9979e+8)
25 parameter(qelectron = 1.602e-19)
27 parameter(massproton = 1.67262e-27)
29 parameter(q2m = qelectron / massproton)
31 parameter(enhancemin = 9.0 * pi * pi / 16.0)
33 parameter(s0 = 1.6806)
35 parameter(const = 4.0 * eps0 / 9.0)
90 parms(2) = enhancemin / ((temp(6)+ temp(1)) **2)
93 parms(3) = cspeed * temp(5) * temp(1)
96 parms(4) = const * temp(2) * sqrt(2.0*q2m*temp(3)/temp(4))
115 parms(10) = parms(3) / s0
subroutine abdiodeparm(parms, nparms)