join_path Function

private function join_path(dirpath, leafname, separator) result(full_path)

Join a directory and leaf name with a platform-appropriate separator.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	dirpath
character(len=*),	intent(in)			::	leafname
character(len=1),	intent(in)			::	separator

Return Value character(len=len_trim)