SUBROUTINE UHYPER(BI1,BI2,AJ,U,UI1,UI2,UI3,TEMP,NOEL,
     1    CMNAME,INCMPFLAG,NUMSTATEV,STATEV,NUMFIELDV,FIELDV,
     2    FIELDVINC,NUMPROPS,PROPS)
C
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME
      DIMENSION U(2),UI1(3),UI2(6),UI3(6),STATEV(*),FIELDV(*),
     2    FIELDVINC(*),PROPS(*)
C     User coding to define U, UI1, UI2, UI3, STATEV
      U(1) = PROPS(1)*(BI1-3.0) + PROPS(2)*(BI1-3.0)**2.0 + 
     1	PROPS(3)*(BI1-3.0)**3.0 + (1/PROPS(4))*(AJ-1)**2.0
	U(2) = PROPS(1)*(BI1-3.0) + PROPS(2)*(BI1-3.0)**2.0 + 
     1	PROPS(3)*(BI1-3.0)**3.0
	UI1(1) = PROPS(1) + 2.0*PROPS(2)*(BI1-3.0) + 3.0*PROPS(3)*
     1    (BI1-3.0)**2.0
      UI1(2) = 0.0
      UI1(3) = 2.0*(AJ-1.0)/PROPS(4)
      UI2(1) = 2.0*PROPS(2) + 6.0*PROPS(3)*(BI1-3.0)
      UI2(2) = 0.0
      UI2(3) = 2.0/PROPS(4)
      UI2(4) = 0.0
      UI2(5) = 0.0
      UI2(6) = 0.0
      UI3(1) = 0.0
      UI3(2) = 0.0
      UI3(3) = 0.0
      UI3(4) = 0.0
      UI3(5) = 0.0
      UI3(6) = 0.0
      RETURN
      END