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

Working redef box option

Browse source
This commit is contained in:
Alex Selimov 2020-10-13 11:57:20 -04:00
parent b658202a1e
commit c42db27f57
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/call_option.f90
View file

@ -5,6 +5,7 @@ subroutine call_option(option, arg_pos)
use opt_orient
use opt_deform
use opt_delete
use opt_redef_box
use box
implicit none
@ -38,6 +39,8 @@ subroutine call_option(option, arg_pos)
call run_delete(arg_pos)
case('-set_cac')
arg_pos=arg_pos +3
case('-redef_box')
call redef_box(arg_pos)
case default
print *, 'Option ', trim(adjustl(option)), ' is not currently accepted.'
stop 3