c$Id:$
      subroutine umshlib(i,prt)

c      * * F E A P * * A Finite Element Analysis Program

c....  Copyright (c) 1984-2005: Robert L. Taylor
c                               All rights reserved

c-----[--.----+----.----+----.-----------------------------------------]
c      Purpose: Interface for user mesh commands

c      Inputs:
c         i      - Command number
c         prt    - Flag, output if true

c      Outputs:
c         None   - Users are responsible for providing outputs in
c                  umeshi routines
c-----[--.----+----.----+----.-----------------------------------------]
      implicit  none

      logical   prt
      integer   i

      save

      if(i.eq.1) then
        call umesh1(prt)
      elseif(i.eq.2) then
        call umesh2(prt)
      elseif(i.eq.3) then
        call umesh3(prt)
      elseif(i.eq.4) then
        call umesh4(prt)
      elseif(i.eq.5) then
        call umesh5(prt)
      endif

      end