timing_setkey Function

private function timing_setkey(char1)

Set the keyword for the timing processes. Checks if the keyword has been defined more than once, and if there is enough space in the option array for the present keyword.

Arguments

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

Return Value integer