indeces_in_array Function

  1. utilities.f95
  2. utilities
  3. indeces_in_array

public function indeces_in_array(entries, array) result(outarray)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in), dimension(:):: entries
character(len=*), intent(in), dimension(:):: array

Return Value integer, dimension(size(entries))


Calls

proc~~indeces_in_array~~CallsGraph proc~indeces_in_array indeces_in_array proc~string_index string_index proc~indeces_in_array->proc~string_index

Called by

proc~~indeces_in_array~~CalledByGraph proc~indeces_in_array indeces_in_array proc~output_initialise_storage_index output_initialise_storage_index proc~output_initialise_storage_index->proc~indeces_in_array proc~output_initialise_storage output_initialise_storage proc~output_initialise_storage->proc~output_initialise_storage_index proc~output_initialise output_initialise proc~output_initialise->proc~output_initialise_storage proc~initialise initialise proc~initialise->proc~output_initialise program~swim swim program~swim->proc~initialise

Contents

Source Code

indeces_in_array

Source Code

  function indeces_in_array(entries, array)  result(outarray)
    ! Get the indeces in array of entries
    ! outarray must be the same length as entries and array
    character(len=*), dimension(:), intent(in) :: entries, array
    integer, dimension(size(entries)) :: outarray
    integer i

    do i = 1, size(entries)
      outarray(i) = string_index(entries(i), array)
    end do
  end function indeces_in_array