getext Function

public function getext(char) result(ext)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	char

Return Value character(len=7)