|
|
@ -77,15 +77,15 @@ module mode_merge
|
|
|
|
end do
|
|
|
|
end do
|
|
|
|
|
|
|
|
|
|
|
|
!Set argpos accordingly
|
|
|
|
!Set argpos accordingly
|
|
|
|
arg_pos = 3+in_num+1
|
|
|
|
arg_pos = 3+in_num
|
|
|
|
!Now options loop
|
|
|
|
!Now options loop
|
|
|
|
!Check for optional keywords
|
|
|
|
!Check for optional keywords
|
|
|
|
do while(.true.)
|
|
|
|
do while(.true.)
|
|
|
|
if(arg_pos > command_argument_count()) exit
|
|
|
|
if(arg_pos > command_argument_count()) exit
|
|
|
|
!Pull out the next argument which should either be a keyword or an option
|
|
|
|
!Pull out the next argument which should either be a keyword or an option
|
|
|
|
|
|
|
|
arg_pos=arg_pos+1
|
|
|
|
call get_command_argument(arg_pos, textholder)
|
|
|
|
call get_command_argument(arg_pos, textholder)
|
|
|
|
textholder=adjustl(textholder)
|
|
|
|
textholder=adjustl(textholder)
|
|
|
|
arg_pos=arg_pos+1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
!Choose what to based on what the option string is
|
|
|
|
!Choose what to based on what the option string is
|
|
|
|
select case(trim(textholder))
|
|
|
|
select case(trim(textholder))
|
|
|
|