aselimov/CACmb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Quick fix to argument positioning

Browse Source
This commit is contained in:
Alex Selimov 2020-01-15 08:12:48 -05:00
parent c89b7d3b59
commit 55fbe679e5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mode_merge.f90
View File

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