Extract dirname from path
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | path |
function dirname(path) result (dir)
character(*), intent(in) :: path
character(:), allocatable :: dir
dir = path(1:scan(path,'/\',back=.true.))
end function dirname