Added disl option
This commit is contained in:
parent
0620a07847
commit
077574ea8d
4 changed files with 156 additions and 3 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue