Class option_parser
In: setup/option_parser.f90

コマンドライン引数解析処理

Command line option parser

Note that Japanese and English are described in parallel.

コマンドライン引数の解析処理を行います.

Command line options are parsed

Procedures List

OptParseInit :コマンドライン引数の解析処理
———— :————
OptParseInit :Parse of command line options

Methods

Included Modules

dc_types dc_string dc_args

Public Instance methods

Subroutine :

option_parser モジュールの初期設定を行います.

Initialize "option_parser" module.

[Source]

  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
namelist_filename
Variable :
namelist_filename = ’’ :character(STRING), save, public
: NAMELIST ファイルの名称. NAMELIST file name
namelist_flag
Variable :
namelist_flag = .false. :logical, save, public
: NAMELIST ファイル指定の有無を示すフラグ. Flag of NAMELIST file specification
option_parser_inited
Variable :
option_parser_inited = .false. :logical, save, public
: 初期設定フラグ. Initialization flag

Private Instance methods

Subroutine :

依存モジュールの初期化チェック

Check initialization of dependency modules

[Source]

  subroutine InitCheck
    !
    ! 依存モジュールの初期化チェック
    !
    ! Check initialization of dependency modules

    ! 実行文 ; Executable statement
    !


  end subroutine InitCheck
module_name
Constant :
module_name = ‘option_parser :character(*), parameter
: モジュールの名称. Module name
version
Constant :
version = ’$Name: dcpam5-20081118 $’ // ’$Id: option_parser.f90,v 1.1.1.1 2008-07-30 08:41:33 morikawa Exp $’ :character(*), parameter
: モジュールのバージョン Module version

[Validate]