Argument.f90 Source File

!> 命令行参数
module argument_m

    use argv_module, only: argv

contains

    !> 获取路径
    subroutine get_path(cwd)
        character(:), allocatable, intent(out) :: cwd
        if (command_argument_count() < 1) then
            cwd = '.'
        else
            cwd = argv(1)
        end if

    end subroutine get_path

end module argument_m