Quick fix to argument positioning

master
Alex Selimov 5 years ago
parent c89b7d3b59
commit 55fbe679e5

@ -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))

Loading…
Cancel
Save