fdoc_shell.f90 › fdoc_shell

subroutineremove_directory

subroutine remove_directory(path)

Delete directory path with what it holds, if it exists.

Arguments

Name	Type	Intent	Attributes	Description
path	character(len=*)	in		the directory

Calls

Source

Show the code

subroutine remove_directory(path)
    character(len=*), intent(in) :: path    !! the directory
    integer :: stat

    if (is_windows()) then
        call run_command('if exist '//quoted_path(path)//' rmdir /s /q '//quoted_path(path), stat)
    else
        call run_command('rm -rf '//quoted_path(path), stat)
    end if
end subroutine remove_directory

Graphs

Calls

Called by