parse_path_segments Subroutine

public subroutine parse_path_segments(path, segments, n_segments)

Parse a path into directory segments

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	path
character(len=*),	intent(out)			::	segments(100)
integer,	intent(out)			::	n_segments