subroutine uhyper(bi1,bi2,aj,u,ui1,ui2,ui3,temp,noel,
     .                 cmname,incmpflag,numstatev,statev,
     .                 numfieldv,fieldv,fieldvinc,numprops,props)

      include 'aba_param.inc'

      character*8 cmname
      dimension ui1(3),ui2(6),ui3(6),statev(*),fieldv(*),
     .          fieldvinc(*),props(*)
c
      if(temp .le. props(1)) then
        c10 = props(2)
        c01 = props(3)
      else if(temp .gt. props(1) .and. temp .le. props(4)) then
        c10 = props(2)+(props(5)-props(2))/(props(4)-props(1))*
     .        (temp-props(1))
        c01 = props(3)+(props(6)-props(3))/(props(4)-props(1))*
     .        (temp-props(1))
      else if(temp .gt. props(4) .and. temp .le. props(7)) then
        c10 = props(5)+(props(8)-props(5))/(props(7)-props(4))*
     .        (temp-props(4))
        c01 = props(6)+(props(9)-props(6))/(props(7)-props(4))*
     .        (temp-props(4))
      else if(temp .gt. props(7)) then
        c10 = props(8)
        c01 = props(9)
      end if
c
      u = c10*(bi1-3.)+c01*(bi2-3.)
      ui1(1) = c10
      ui1(2) = c01
      ui1(3) = 0.
      ui2(1) = 0.
      ui2(2) = 0.
      ui2(3) = 0.
      ui2(4) = 0.
      ui2(5) = 0.
      ui2(6) = 0.
      ui3(1) = 0.
      ui3(2) = 0.
      ui3(3) = 0.
      ui3(4) = 0.
      ui3(5) = 0.
      ui3(6) = 0.

      return
      end