789
790
791
792
793
794
795
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(:)
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
integer, parameter, public string
文字列を保持する 文字型変数の種別型パラメタ