From 55fbe679e5ef89ef516014d9d97b8d71dd4a5ff4 Mon Sep 17 00:00:00 2001 From: Alex Selimov Date: Wed, 15 Jan 2020 08:12:48 -0500 Subject: [PATCH] Quick fix to argument positioning --- src/mode_merge.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))