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

Added orient and unorient options

Browse source
This commit is contained in:
Alex Selimov 2020-02-03 17:30:41 -05:00
parent 58ad74ca9a
commit 44efb4be4a
6 changed files with 77 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

9
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 opt_orient
use box
implicit none
@ -15,14 +16,16 @@ subroutine call_option(option, arg_pos)
call group(arg_pos)
case('-ow')
arg_pos = arg_pos + 1
continue
case('-wrap')
arg_pos = arg_pos + 1
continue
case('-orient')
call orient(arg_pos)
case('-unorient')
call unorient
arg_pos = arg_pos + 1
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.'