subroutine umati1(type,vv, d, ud, n1,n3)

c-----[--.----+----.----+----.-----------------------------------------]
c     Modification log                                Date (dd/mm/year)
c       Original version                                    01/11/2006
c-----[--.----+----.----+----.-----------------------------------------]
c      Purpose: User input for Microsphere model

c      Inputs:
c         type   - Name of material model
c         vv(5)  - Command line real data
c         d(*)   - Program material parameter data

c      Outputs:
c         ud(*)  - Material parameter data for model
c         n1     - Number of history items/point (time   dependent)
c         n3     - Number of history items/point (time independent)

c     Note:
c         ud(1)   p    non-affine stretch parameter
c         ud(2)   N    number of chain segments
c         ud(3)   mu   shear modulus
c         ud(4)   q    non-affine tube parameter
c         ud(5)   U    tube geometry parameter
c         ud(6)   bb   bulk modulus
c-----[--.----+----.----+----.-----------------------------------------]
      implicit  none

      logical   pcomp
      character type*15
      integer   n1,n3
      real*8    vv(6),d(*),ud(6)

c     Set command name

      if(pcomp(type,'mat1',4)) then     ! Default form: DO NOT CHANGE
       type = 'micro'                   ! Specify new 'name'

c     Input user data and save in ud(*) array

      else                              ! Perform input for user data

       ud(1) = vv(1)
       ud(2) = vv(2) 
       ud(3) = vv(3)
       ud(4) = vv(4)
       ud(5) = vv(5)
       ud(6) = vv(6)

      endif

      end