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

Quick add of boundary option and update to readme

Browse source
This commit is contained in:
Alex Selimov 2020-01-31 11:50:41 -05:00
parent 4117f31cb6
commit 58ad74ca9a
2 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/call_option.f90
View file

@ -2,6 +2,7 @@ subroutine call_option(option, arg_pos)
use parameters
use opt_disl
use opt_group
use box
implicit none
integer, intent(inout) :: arg_pos
@ -18,6 +19,11 @@ subroutine call_option(option, arg_pos)
case('-wrap')
arg_pos = arg_pos + 1
continue
case('-boundary')
arg_pos=arg_pos+1
call get_command_argument(arg_pos, box_bc)
print *, box_bc
arg_pos=arg_pos+1
case default
print *, 'Option ', trim(adjustl(option)), ' is not currently accepted.'
stop 3