Replace file system separators for windows
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | path |
function windows_path(path) result(winpath)
character(*), intent(in) :: path
character(:), allocatable :: winpath
integer :: idx
winpath = path
idx = index(winpath,'/')
do while(idx > 0)
winpath(idx:idx) = '\'
idx = index(winpath,'/')
end do
end function windows_path