命令行参数
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=128), | public | :: | working_directory | = | '.' |
工作目录 |
|
integer, | public | :: | num_threads | = | 4 |
线程数 |
|
logical, | public | :: | debug_mode | = | .false. |
调试模式 |
|
character(len=64), | public | :: | file | = | 'spx.nml' |
输入文件 |
初始化和解析命令行参数
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(command_line), | intent(out) | :: | self |
type, public :: command_line
character(128) :: working_directory = '.' !! 工作目录
integer :: num_threads = 4 !! 线程数
logical :: debug_mode = .false. !! 调试模式
character(64) :: file = 'spx.nml' !! 输入文件
contains
procedure :: parse
end type command_line