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