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

Working changes to slip_plane code

Browse source
This commit is contained in:
Alex Selimov 2020-10-23 14:13:35 -04:00
parent 3e140df1a9
commit b5629b1563
5 changed files with 27 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/call_option.f90
View file

@ -6,6 +6,7 @@ subroutine call_option(option, arg_pos)
use opt_deform
use opt_delete
use opt_redef_box
use opt_slip_plane
use box
implicit none
@ -41,6 +42,8 @@ subroutine call_option(option, arg_pos)
arg_pos=arg_pos +3
case('-redef_box')
call redef_box(arg_pos)
case('-slip_plane')
call run_slip_plane(arg_pos)
case default
print *, 'Option ', trim(adjustl(option)), ' is not currently accepted.'
stop 3