endsWith Function

  1. utilities.f90
  2. utilities_mod
  3. endsWith

public function endsWith(text, str) result(o)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: text

Text to search
character(len=*), intent(in) :: str

String to look for

Return Value logical

Description

Test if text ends with str

Called By

proc~~endswith~~CalledByGraph proc~endswith endsWith none~getcorner getCorner none~getcorner->proc~endswith none~dolegendbox doLegendBox none~dolegendbox->none~getcorner proc~legend legend proc~legend->none~dolegendbox proc~dolegend doLegend proc~dolegend->proc~legend program~examples_prg examples_prg program~examples_prg->proc~dolegend
Help

Variables

TypeVisibility AttributesNameInitial
integer, public :: k

Source Code

	function endsWith(text,str) result(o)
		!! Test if text ends with str
		character(*),intent(in)::text
			!! Text to search
		character(*),intent(in)::str
			!! String to look for
		logical::o
		integer::k
		
		k = len(text)
		o = text(k-len(str)+1:k)==str
	end function endsWith