You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
subroutine call_option(option, arg_pos)
|
|
|
|
|
use parameters
|
|
|
|
|
use opt_disl
|
|
|
|
|
use opt_group
|
|
|
|
|
use box
|
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
|
|
integer, intent(inout) :: arg_pos
|
|
|
|
|
character(len=100), intent(in) :: option
|
|
|
|
|
|
|
|
|
|
select case(trim(adjustl(option)))
|
|
|
|
|
case('-dislgen', '-disloop')
|
|
|
|
|
call dislocation(option, arg_pos)
|
|
|
|
|
case('-group')
|
|
|
|
|
call group(arg_pos)
|
|
|
|
|
case('-ow')
|
|
|
|
|
arg_pos = arg_pos + 1
|
|
|
|
|
continue
|
|
|
|
|
case('-wrap')
|
|
|
|
|
arg_pos = arg_pos + 1
|
|
|
|
|
continue
|
|
|
|
|
case('-boundary')
|
|
|
|
|
arg_pos=arg_pos+1
|
|
|
|
|
call get_command_argument(arg_pos, box_bc)
|
|
|
|
|
print *, box_bc
|
|
|
|
|
arg_pos=arg_pos+1
|
|
|
|
|
case default
|
|
|
|
|
print *, 'Option ', trim(adjustl(option)), ' is not currently accepted.'
|
|
|
|
|
stop 3
|
|
|
|
|
end select
|
|
|
|
|
end subroutine call_option
|
