Class | option_parser |
In: |
setup/option_parser.f90
|
Note that Japanese and English are described in parallel.
コマンドライン引数の解析処理を行います.
Command line options are parsed
OptParseInit : | コマンドライン引数の解析処理 |
———— : | ———— |
OptParseInit : | Parse of command line options |
Subroutine : |
option_parser モジュールの初期設定を行います.
Initialize "option_parser" module.
subroutine OptParseInit ! ! option_parser モジュールの初期設定を行います. ! ! Initialize "option_parser" module. ! ! モジュール引用 ; USE statements ! ! 文字列操作 ! Character handling ! use dc_string, only: StoA ! コマンドライン引数処理下請け ! Command line option parser subcontractor ! use dc_args, only: ARGS, DCArgsOpen, DCArgsHelpMsg, DCArgsOption, DCArgsDebug, DCArgsHelp, DCArgsStrict, DCArgsClose ! 宣言文 ; Declaration statements ! type(ARGS):: arg ! コマンドライン引数. ! Command line options ! 実行文 ; Executable statement ! if ( option_parser_inited ) return call InitCheck call DCArgsOpen( arg ) ! (out) call DCArgsHelpMsg( arg, category = 'Title', msg = 'dcpam main program' ) ! (in) call DCArgsHelpMsg( arg, category = 'Usage', msg = './dcpam' // ' [Options]' ) ! (in) call DCArgsOption( arg, options = StoA('-N', '--namelist'), flag = namelist_flag, value = namelist_filename, help = "Namelist filename") ! (in) call DCArgsDebug( arg ) ! (inout) call DCArgsHelp( arg ) ! (inout) call DCArgsStrict( arg ) ! (inout) call DCArgsClose( arg ) ! (inout) option_parser_inited = .true. end subroutine OptParseInit
Variable : | |||
namelist_filename = ’’ : | character(STRING), save, public
|
Variable : | |||
namelist_flag = .false. : | logical, save, public
|
Variable : | |||
option_parser_inited = .false. : | logical, save, public
|
Subroutine : |
依存モジュールの初期化チェック
Check initialization of dependency modules
subroutine InitCheck ! ! 依存モジュールの初期化チェック ! ! Check initialization of dependency modules ! 実行文 ; Executable statement ! end subroutine InitCheck
Constant : | |||
module_name = ‘option_parser‘ : | character(*), parameter
|
Constant : | |||
version = ’$Name: dcpam5-20081118 $’ // ’$Id: option_parser.f90,v 1.1.1.1 2008-07-30 08:41:33 morikawa Exp $’ : | character(*), parameter
|