Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
tkofpf | Module: | File: RAD_UTILS.f |
Author :
Version:
Declaration:
real*8 function tkofpf(wavna, wavnb, fluxab)
- logfit :
logical
- delfit :
real*8, parameter
- Initial Value
= 1.D-06
- nmax :
integer, parameter
- Initial Value
= 20
- wavna :
real*8, intent(in)
- wavnb :
real*8, intent(in)
- fluxab :
real*8, intent(in)
- xa :
real*8
- ya :
real*8
- xb :
real*8
- yb :
real*8
- xx :
real*8
- yy :
real*8
- xc :
real*8
- yc :
real*8
- xba :
real*8
- xca :
real*8
- xbc :
real*8
- yba :
real*8
- yca :
real*8
- ybc :
real*8
- yxba :
real*8
- yxca :
real*8
- a :
real*8
- b :
real*8
- c :
real*8
- root :
real*8
- pf :
real*8
- pfoftk :
real*8
- nfit :
integer