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.
25 lines
598 B
25 lines
598 B
subroutine call_mode(arg_num,mode)
|
|
!This code is used to parse the command line argument for the mode information and calls the required
|
|
!mode module.
|
|
|
|
use mode_create
|
|
use parameters
|
|
|
|
implicit none
|
|
|
|
integer, intent(in) :: arg_num
|
|
character(len=100), intent(in) :: mode
|
|
|
|
select case(mode)
|
|
case('--create')
|
|
call create(arg_num)
|
|
|
|
case default
|
|
print *, "Mode ", mode, " currently not accepted. Please check documentation for ", &
|
|
"accepted modes and rerun."
|
|
|
|
stop 3
|
|
|
|
end select
|
|
end subroutine call_mode
|