LT_set_col Subroutine

public pure subroutine LT_set_col(my_lt, col_ix, x, y)

Fill the column with index col_ix using the linearly interpolated (x, y) data

Arguments

Type IntentOptional Attributes Name
type(LT_t), intent(inout) :: my_lt
integer, intent(in) :: col_ix
real(kind=dp), intent(in) :: x(:)
real(kind=dp), intent(in) :: y(:)

Calls

proc~~lt_set_col~~CallsGraph proc~lt_set_col LT_set_col proc~lt_get_spaced_data LT_get_spaced_data proc~lt_set_col->proc~lt_get_spaced_data proc~lt_get_xdata LT_get_xdata proc~lt_set_col->proc~lt_get_xdata proc~lt_lin_interp_list LT_lin_interp_list proc~lt_get_spaced_data->proc~lt_lin_interp_list proc~find_index_adaptive find_index_adaptive proc~lt_lin_interp_list->proc~find_index_adaptive proc~find_index_bsearch find_index_bsearch proc~find_index_adaptive->proc~find_index_bsearch proc~find_index_linear find_index_linear proc~find_index_adaptive->proc~find_index_linear

Source Code

  pure subroutine LT_set_col(my_lt, col_ix, x, y)
    type(LT_t), intent(inout) :: my_lt
    integer, intent(in)       :: col_ix
    real(dp), intent(in)      :: x(:), y(:)
    my_lt%cols_rows(col_ix, :) = LT_get_spaced_data(x, y,&
        LT_get_xdata(my_lt%x_min, my_lt%dx, my_lt%n_points))
    my_lt%rows_cols(:, col_ix) = my_lt%cols_rows(col_ix, :)
  end subroutine LT_set_col