cacmb/src/call_mode.f90

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()

    case default
        print *, "Mode ", mode, " currently not accepted. Please check documentation for ", &
                 "accepted modes and rerun."

        stop 3
         
    end select
end subroutine call_mode