path_dirname Function

public pure function path_dirname(path) result(dir)

Directory part of path (everything up to the last '/' or '\'); '.' when path has no directory component. The trailing separator is dropped.

Arguments

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

Return Value character(len=len)