replace_extension Function

public pure function replace_extension(filename, new_ext) result(new_filename)

Arguments

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

Return Value character(len=FILENAME_MAX_LEN)