Quick fix to argument positioning

master
Alex Selimov 5 years ago
parent c89b7d3b59
commit 55fbe679e5

@ -77,15 +77,15 @@ module mode_merge
end do
!Set argpos accordingly
arg_pos = 3+in_num+1
arg_pos = 3+in_num
!Now options loop
!Check for optional keywords
do while(.true.)
if(arg_pos > command_argument_count()) exit
!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)
textholder=adjustl(textholder)
arg_pos=arg_pos+1
!Choose what to based on what the option string is
select case(trim(textholder))

Loading…
Cancel
Save