Returns the x-coordinates of the lookup table
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(in) | :: | x_min | |||
| real(kind=dp), | intent(in) | :: | dx | |||
| integer, | intent(in) | :: | n_points |
pure function LT_get_xdata(x_min, dx, n_points) result(xdata) real(dp), intent(in) :: x_min, dx integer, intent(in) :: n_points real(dp) :: xdata(n_points) integer :: ix do ix = 1, n_points xdata(ix) = x_min + (ix-1) * dx end do end function LT_get_xdata