dc_args::putline Interface Reference

Private Member Functions
subroutine	dcargsputline0 (arg)

Detailed Description

Definition at line 282 of file dc_args.f90.

Member Function/Subroutine Documentation

dcargsputline0()

subroutine dc_args::putline::dcargsputline0 ( type(args), intent(in)  arg )

private

Definition at line 835 of file dc_args.f90.

    !
    ! *arg* に関する情報を標準出力に表示します.
    !
    use dc_types, only: stdout
    use dc_string, only: printf, joinchar
    implicit none
    type(args), intent(in) :: arg
    integer :: i
  continue
    if (.not. arg % initialized) then
      call printf(stdout, '#<ARGS:: @initialized=%y>', l=(/arg % initialized/))
      return
    end if
    call printf(stdout, '#<ARGS:: @initialized=%y,', l=(/arg % initialized/))
    call printf(stdout, '  @opt_table(:)=')
    if ( associated(arg % opt_table) ) then
      do i = 1, size(arg % opt_table)
        call printf(stdout, '    #<OPT_ENTRY:: ')
        call printf(stdout, '      @options=%c, @help_message=%c, @optvalue_flag=%y', &
          & c1=trim(joinchar(arg % opt_table(i) % options)), &
          & c2=trim(arg % opt_table(i) % help_message), &
          & l=(/arg % opt_table(i) % optvalue_flag/))
        call printf(stdout, '    >')
      end do
    end if
    call printf(stdout, '  ,')
    call printf(stdout, '  @cmd_opts_list(:)=')
    do i = 1, size(arg % cmd_opts_list)
      call printf(stdout, '    #<CMD_OPTS_INTERNAL:: ')
      call printf(stdout, '      @name=%c, @value=%c, @flag_called=%y', &
        & c1=trim(arg % cmd_opts_list(i) % name), &
        & c2=trim(arg % cmd_opts_list(i) % value), &
        & l=(/arg % cmd_opts_list(i) % flag_called/))
      call printf(stdout, '    >')
    end do
    call printf(stdout, '  ,')
    call printf(stdout, '  @cmd_argv_list(:)=%c', &
      & c1=trim(joinchar(cmd_argv_list)))
    call printf(stdout, '>')

---

The documentation for this interface was generated from the following file:

• dc_utils/dc_args.f90