30 parameter(mu = 2.0e-7)
32 parameter(pi = 3.14159)
88 parms(4) = pi * temp(2) * temp(3)
89 & * (temp(1)*temp(1) - temp(5)*temp(5))
92 parms(7) = - (mu * temp(2) * 0.5)
93 parms(8) = 2.0 * pi * temp(2) * temp(3)
94 parms(9) = mu * temp(2)
95 parms(10) = pi * temp(2) * temp(3)
96 parms(11) = mu * temp(2) * log(temp(1)/temp(4))
subroutine gaspuffparm(parms, nparms)