aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added -ow option which allows for automatic overwriting

Browse source
This commit is contained in:
Alex Selimov 2020-01-28 10:59:49 -05:00
parent 9ebdfff0a1
commit a942b8e2a1
4 changed files with 28 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/call_option.f90
View file

@ -12,7 +12,11 @@ subroutine call_option(option, arg_pos)
call dislocation(option, arg_pos)
case('-group')
call group(arg_pos)
case('-ow')
arg_pos = arg_pos + 1
continue
case default
print *, 'Option ', trim(adjustl(option)), ' is not currently accepted.'
print *, 'Option ', trim(adjustl(option)), ' is not currently accepted. Skipping to next argument'
arg_pos = arg_pos + 1
end select
end subroutine call_option