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

Initial working commit with bug in delete command

Browse source
This commit is contained in:
Alex Selimov 2020-02-05 10:57:39 -05:00
parent 08aa5d46df
commit 6f15daf1ec
5 changed files with 198 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/call_option.f90
View file

@ -3,6 +3,7 @@ subroutine call_option(option, arg_pos)
use opt_disl
use opt_group
use opt_orient
use opt_delete
use box
implicit none
@ -27,6 +28,8 @@ subroutine call_option(option, arg_pos)
arg_pos=arg_pos+1
call get_command_argument(arg_pos, box_bc)
arg_pos=arg_pos+1
case('-delete')
call run_delete(arg_pos)
case default
print *, 'Option ', trim(adjustl(option)), ' is not currently accepted.'
stop 3