has_column Function

  1. input.f95
  2. input
  3. has_column

public function has_column(column, file_id)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: column
integer, intent(in) :: file_id

Return Value logical


Calls

proc~~has_column~~CallsGraph proc~has_column has_column proc~header_column_index header_column_index proc~has_column->proc~header_column_index proc~input_error_column_not_found input_error_column_not_found proc~header_column_index->proc~input_error_column_not_found proc~move_lines move_lines proc~header_column_index->proc~move_lines proc~log_error log_error proc~input_error_column_not_found->proc~log_error proc~log_message log_message proc~log_error->proc~log_message proc~log_write log_write proc~log_message->proc~log_write proc~log_format_message log_format_message proc~log_message->proc~log_format_message proc~to_string to_string proc~log_write->proc~to_string proc~date_time_str date_time_str proc~log_format_message->proc~date_time_str proc~colourise colourise proc~log_format_message->proc~colourise proc~string_index string_index proc~colourise->proc~string_index

Called by

proc~~has_column~~CalledByGraph proc~has_column has_column proc~subbasin_allocate_obs_discharge subbasin_allocate_obs_discharge proc~subbasin_allocate_obs_discharge->proc~has_column proc~output_initialise_labelled output_initialise_labelled proc~output_initialise_labelled->proc~has_column proc~subbasin_initialise subbasin_initialise proc~subbasin_initialise->proc~subbasin_allocate_obs_discharge proc~output_initialise_storage output_initialise_storage proc~output_initialise_storage->proc~output_initialise_labelled proc~initialise initialise proc~initialise->proc~subbasin_initialise proc~output_initialise output_initialise proc~initialise->proc~output_initialise proc~output_initialise->proc~output_initialise_storage program~swim swim program~swim->proc~initialise

Contents

Source Code

has_column

Source Code

  logical function has_column(column, file_id)
    character(len=*), intent(in) :: column
    integer, intent(in) :: file_id
    has_column = header_column_index(trim(adjustl(column)), file_id) >0
  end function has_column