titand Subroutine

subroutine titand(t, g, n)

************80

! TITAND represents a temperature dependent property of titanium.

Discussion:

The data has been used extensively as an example in spline
approximation with variable knots.

Modified:

14 February 2007

Author:

Carl DeBoor

Reference:

Carl DeBoor,
A Practical Guide to Splines,
Springer, 2001,
ISBN: 0387953663,
LC: QA1.A647.v27.

Parameters:

Output, real ( kind = 8 ) T(N), the location of the data points.

Output, real ( kind = 8 ) G(N), the value associated with the data points.

Output, integer ( kind = 4 ) N, the number of data points, which is 49.

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: t(*)
real(kind=8) :: g(*)
integer(kind=4) :: n