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_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 mode_convert
|
|
|
|
|
use mode_merge
|
|
|
|
|
use parameters
|
|
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
|
|
integer, intent(in) :: arg_num
|
|
|
|
|
character(len=100), intent(in) :: mode
|
|
|
|
|
|
|
|
|
|
select case(mode)
|
|
|
|
|
case('--create')
|
|
|
|
|
call create
|
|
|
|
|
case('--convert')
|
|
|
|
|
call convert
|
|
|
|
|
case('--merge')
|
|
|
|
|
call merge
|
|
|
|
|
case default
|
|
|
|
|
print *, "Mode ", trim(adjustl(mode)), " currently not accepted. Please check documentation for ", &
|
|
|
|
|
"accepted modes and rerun."
|
|
|
|
|
|
|
|
|
|
stop 3
|
|
|
|
|
|
|
|
|
|
end select
|
|
|
|
|
end subroutine call_mode
|
