Loading...
Searching...
No Matches
dc_args::get Interface Reference

Public Member Functions

subroutine dcargsget0 (arg, argv)

Detailed Description

Definition at line 302 of file dc_args.f90.

Member Function/Subroutine Documentation

◆ dcargsget0()

subroutine dc_args::get::dcargsget0 ( type(args), intent(inout) arg,
character(*), dimension(:), pointer argv )

Definition at line 788 of file dc_args.f90.

789 !
790 ! コマンドライン引数のうち, オプションではないものを
791 ! *argv* に返します.
792 !
793 ! *argv* は文字型配列のポインタです.
794 ! 引数として与える場合には必ず空状態して与えてください.
795 !
796 use dc_types, only: string
797 use dc_string, only: stoa, stoi, printf, concat, joinchar
798 use dc_present, only: present_and_true
799 use dc_message, only: messagenotify
800 implicit none
801 type(ARGS), intent(inout) :: arg
802 character(*), pointer :: argv(:) !(out)
803 integer :: i, cmd_argv_max
804 character(len = *), parameter :: subname = 'DCArgsGet'
805 continue
806 if (.not. arg % initialized) then
807 call messagenotify('W', subname, 'Call Open before Help in dc_args.')
808 call dcargsopen(arg)
809 end if
810 cmd_argv_max = size(cmd_argv_list)
811 allocate(argv(cmd_argv_max))
812 do i = 1, cmd_argv_max
813 argv(i) = cmd_argv_list(i)
814 end do
Provides kind type parameter values.
Definition dc_types.f90:49
integer, parameter, public string
Character length for string
Definition dc_types.f90:118

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