startsWith Function

public function startsWith(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 starts with str

Called By

proc~~startswith~~CalledByGraph proc~startswith startsWith none~getcorner getCorner none~getcorner->proc~startswith 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 startsWith(text,str) result(o)
		!! Test if text starts with str
		character(*),intent(in)::text
			!! Text to search
		character(*),intent(in)::str
			!! String to look for
		logical::o
		integer::k
		
		k = len(str)
		o = text(1:k)==str
	end function startsWith