timing_findkey Function

private function timing_findkey(char1, char2)

Find if the current process in in my predefined timing keywords

Arguments

Type	Intent	Optional	Attributes		Name
character(len=nkeylen),	intent(in)			::	char1
character(len=*),	intent(in),	optional		::	char2

Return Value integer