*USER SUBROUTINE
      SUBROUTINE CREEP(DECRA,DESWA,STATEV,SERD,EC,ESW,P,QTILD,
     1 TEMP,DTEMP,PREDEF,DPRED,TIME,DTIME,CMNAME,LEXIMP,LEND,
     2 COORDS,NSTATV,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)

C 
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME
C
      DIMENSION DECRA(5),DESWA(5),PREDEF(*),DPRED(*),TIME(2),STATEV(*),
     1 COORDS(*),EC(2),ESW(2)

      parameter (maxProps = 100)
      dimension rIndVars(maxProps),dpropVals(100)

      parameter (MAXPARAMS=20)
      CHARACTER*80 TBL_LABEL
      DIMENSION RPARAMS(MAXPARAMS)
      
      TBL_LABEL = 'MTR1'

      call getPropertyTable(TBL_LABEL, rIndVars, temp, predef,
     *     numProps, rparams, dPropVals, numDervs, jError)
C
      DO I=1,5
       DECRA(I)=0.0D0
       DESWA(I)=0.0D0
      ENDDO
C
C   DEFINE CONSTATANTS
C
      A1=1.D-16
      A2=1.D-14
      AN1=RPARAMS(1)
      AN2=RPARAMS(2)
      AM1=RPARAMS(3)
      AM2=RPARAMS(4)
C
      T1=QTILD**AN1
      T2=(TIME(2) - DTIME)**(AM1-1.)
      T3=QTILD**AN2
      T4=(TIME(2) - DTIME)**(AM2-1.)
      DECRA(1) = DTIME*(AM1*A1*T1*T2 + AM2*A2*T3*T4)
      RETURN
      END