LT_get_mcol_at_loc Function

public pure function LT_get_mcol_at_loc(my_lt, loc) result(col_values)

Get the values of all columns at a location

Arguments

Type IntentOptional Attributes Name
type(LT_t), intent(in) :: my_lt
type(LT_loc_t), intent(in) :: loc

Return Value real(kind=dp), (my_lt%n_cols)


Called by

proc~~lt_get_mcol_at_loc~~CalledByGraph proc~lt_get_mcol_at_loc LT_get_mcol_at_loc proc~lt_get_mcol LT_get_mcol proc~lt_get_mcol->proc~lt_get_mcol_at_loc

Source Code

  pure function LT_get_mcol_at_loc(my_lt, loc) result(col_values)
    type(LT_t), intent(in)     :: my_lt
    type(LT_loc_t), intent(in) :: loc
    real(dp)                   :: col_values(my_lt%n_cols)

    col_values = loc%low_frac * my_lt%cols_rows(:,&
        loc%low_ix) + (1-loc%low_frac) * my_lt%cols_rows(:, loc%low_ix+1)
  end function LT_get_mcol_at_loc