Added disl option

This commit is contained in:
Alex Selimov 2020-11-18 16:03:28 -05:00
parent 0620a07847
commit 077574ea8d
4 changed files with 156 additions and 3 deletions

View file

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