string_in_stringVector Function

public function string_in_stringVector(target_string, string_vector) result(in_vector)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: target_string
type(StringVector), intent(in) :: string_vector

Return Value logical


Calls

proc~~string_in_stringvector~~CallsGraph proc~string_in_stringvector string_in_stringVector begin begin proc~string_in_stringvector->begin get get proc~string_in_stringvector->get next next proc~string_in_stringvector->next

Source Code

   function string_in_stringVector(target_string,string_vector) result(in_vector)
      logical :: in_vector
      character(len=*), intent(in) :: target_string
      type(StringVector), intent(in) :: string_vector

      type(StringVectorIterator) :: iter

      in_vector = .false.
      iter = string_vector%begin()
      do while(iter /= string_vector%end())
         if (trim(target_string) == iter%get()) in_vector = .true.
         call iter%next()
      enddo
   end function string_in_stringVector