SUBROUTINE UTRS(SHIFT,TEMP,DTEMP,TIME,DTIME,PREDEF,DPRED,STATEV,
     1CMNAME,COORDS)
C
C     MIMIC WILLIAMS-LANDELL-FERRY SHIFT FUNCTION TO TEST USER SUBROUTINE
C
      INCLUDE 'ABA_PARAM.INC'
C
      DIMENSION TIME(2)
      DIMENSION PREDEF(1),DPRED(1),STATEV(1),COORDS(1),SHIFT(2)
      CHARACTER*80 CMNAME
      DATA ALN10,TOL,HTOL/2.302585093,1.E-10,1.E-7/
      DATA T0,C1,C2,TWO/70.,4.92,215.,2./
C
      TREL0=TEMP-DTEMP-T0
      TREL1=TREL0+DTEMP
C
C     WLF FUNCTION:    A  =  10**(-C1*TREL/(C2+TREL))
C              LET     H  =  ln(A)
C                         = -ln(10)*C1*TREL/(C2+TREL)
C             THEN  SHIFT =  exp(H)
C
      H0=-ALN10*C1*TREL0/(C2+TREL0)
      H1=-ALN10*C1*TREL1/(C2+TREL1)
      SHIFT(1)=EXP(H0)
      SHIFT(2)=EXP(H1)
      RETURN
      END