c$Id: uconst.f,v 1.2 2002/09/09 23:32:17 sanjay Exp $
      subroutine uconst(type,vv, ud,n1,n3, umat)

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

c....  Copyright (c) 1984-1999: Robert L. Taylor
c....  Copyright (c) 1999: Sanjay Govindjee

c-----[--.----+----.----+----.-----------------------------------------]
c      Purpose: User material model interface

c      Inputs:
c         type    - Name of constitutive model (character variable)
c         vv(*)   - Parameters: user parameters from command line

c      Outputs:
c         n1      - Number history terms: nh1,nh2
c         n3      - Number history terms: nh3
c         ud(*)   - User material parameters
c-----[--.----+----.----+----.-----------------------------------------]

      implicit  none

      logical   pcomp
      character type*15
      integer   n1,n3,umat

      real*8    vv(5), ud(*)

      include 'iofile.h'

      save

c     Match type to find the appropriate input routine

      if(pcomp(type,'cubiclin',8)) then

        umat = 1
        call cubicinpt(ud,n1,n3,umat)

      elseif(pcomp(type,'cubic',5)) then

        umat = 2
        call cubicinpt(ud,n1,n3,umat)

      else

        write(*,*)   ' User model type ',type,' not implemented'
        write(iow,*) ' User model type ',type,' not implemented'

      endif

      end