Get the x-coordinates and the columns of the lookup table
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(LT_t), | intent(in) | :: | my_lt | |||
| real(kind=dp), | intent(out) | :: | x_data(:) | |||
| real(kind=dp), | intent(out) | :: | cols_rows(:,:) |
pure subroutine LT_get_data(my_lt, x_data, cols_rows) type(LT_t), intent(in) :: my_lt real(dp), intent(out) :: x_data(:), cols_rows(:, :) x_data = LT_get_xdata(my_lt%x_min, my_lt%dx, my_lt%n_points) cols_rows = my_lt%cols_rows end subroutine LT_get_data