25 lines
598 B
Fortran
25 lines
598 B
Fortran
|
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
|