Get the value of a single column at x
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(LT3_t), | intent(in) | :: | my_lt | |||
| integer, | intent(in) | :: | col_ix | |||
| real(kind=dp), | intent(in) | :: | x1 | |||
| real(kind=dp), | intent(in) | :: | x2 | |||
| real(kind=dp), | intent(in) | :: | x3 |
elemental function LT3_get_col(my_lt, col_ix, x1, x2, x3) result(col_value) type(LT3_t), intent(in) :: my_lt integer, intent(in) :: col_ix real(dp), intent(in) :: x1, x2, x3 real(dp) :: col_value type(LT3_loc_t) :: loc loc = LT3_get_loc(my_lt, x1, x2, x3) col_value = LT3_get_col_at_loc(my_lt, col_ix, loc) end function LT3_get_col