Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
pfoftk | Module: | File: RAD_UTILS.f |
Author :
Version:
Declaration:
real*8 function pfoftk(wavna, wavnb, tk)
- stbo : used from constant
- bn :
real*8, parameter, dimension(21)
- Initial Value
= (/1D0, -1D0, 1D0, -1D0, 1D0, -1D0, 5D0, -691D0, 7D0, -3617D0, 43867D0, -174611D0, 854513D0, -236364091D0, 8553103D0, -23749461029D0, 8615841276005D0, -7709321041217D0, 2577687858367D0, -2631527155305348D4, 2929993913841559D0 /)
- bd :
real*8, parameter, dimension(21)
- Initial Value
= (/1D0, 2D0, 6D0, 30D0, 42D0, 30D0, 66D0, 2730D0, 6D0 ,510D0, 798D0, 330D0, 138D0, 2730D0, 6D0, 870D0, 14322D0 ,510D0, 6D0, 1919190D0, 6D0/)
- pi4 :
real*8, parameter
- Initial Value
= 97.40909103400244D0
- hck :
real*8, parameter
- Initial Value
= 1.43879D0
- dgxlim :
real*8, parameter
- Initial Value
= 1D-06
- wavna :
real*8, intent(in)
- wavnb :
real*8, intent(in)
- tk :
real*8, intent(in)
- gsum :
real*8
- b :
real*8
- dg :
real*8
- dgb :
real*8
- gx :
real*8
- pnorm :
real*8
- gterm :
real*8
- gxa :
real*8
- gxb :
real*8
- x :
real*8
- xx :
real*8
- xn :
real*8
- xn3 :
real*8
- xnn :
real*8
- xnm :
real*8
- xnf :
real*8
- xnx :
real*8
- ii :
integer
- nb :
integer
- nnb :
integer
- n :
integer