get_file_extension Function

public pure function get_file_extension(filename) result(ext)

Arguments

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

Return Value character(len=10)