SUBROUTINE UHYPER(BI1,BI2,AJ,U,UI1,UI2,UI3,TEMP,NOEL,CMNAME,
     $                  INCMPFLAG,NUMSTATEV,STATEV,NUMFIELDV,
     $                  FIELDV,FIELDVINC,NUMPROPS,PROPS)
C
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME
      DIMENSION UI1(3),UI2(6),UI3(6),STATEV(*),FIELDV(*),
     $          FIELDVINC(*),PROPS(*)
C
      PARAMETER (ZERO=0.0D0,ONE=1.0D0, TWO=2.0D0, THREE=3.0D0)
C
      C10 = 56.E4
      C01 = 14.E4
      D1  = 1.43E-7
C
      U=C10*(BI1-THREE)+C01*(BI2-THREE) + ((AJ-ONE)**2)/D1
      UI1(1)=C10
      UI1(2)=C01
      UI1(3)=TWO*(AJ-ONE)/D1
      UI2(1)=ZERO
      UI2(2)=ZERO
      UI2(3)=TWO/D1
      UI2(4)=ZERO
      UI2(5)=ZERO
      UI2(6)=ZERO
      UI3(1)=ZERO
      UI3(2)=ZERO
      UI3(3)=ZERO
      UI3(4)=ZERO
      UI3(5)=ZERO
      UI3(6)=ZERO
      RETURN
      END