vacancydisloop option added

This commit is contained in:
Alex Selimov 2020-03-13 15:55:45 -04:00
parent c800d3261a
commit fc20350748
4 changed files with 117 additions and 54 deletions

View file

@ -11,7 +11,7 @@ subroutine call_option(option, arg_pos)
character(len=100), intent(in) :: option
select case(trim(adjustl(option)))
case('-dislgen', '-disloop')
case('-dislgen', '-disloop','-vacancydisloop')
call dislocation(option, arg_pos)
case('-group')
call group(arg_pos)