V3FIT
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