V3FIT
BOOTSJ
Sources
temp.f
1
FUNCTION
temp (x, T)
2
USE
stel_kinds
3
C-----------------------------------------------
4
C D u m m y A r g u m e n t s
5
C-----------------------------------------------
6
REAL
(rprec) :: x, temp, T(0:10)
7
C-----------------------------------------------
8
temp = (t(0) + x*(t(1) + x*(t(2) + x*(t(3) + x*(t(4) +
9
1 x*(t(5) + x*(t(6) + x*(t(7) + x*(t(8) + x*(t(9) + x*t(10)
10
2 ))))))))))
11
END FUNCTION
temp
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17