diff --git a/src/mode_merge.f90 b/src/mode_merge.f90 index ca9d068..cfb4273 100644 --- a/src/mode_merge.f90 +++ b/src/mode_merge.f90 @@ -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))