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