*USER SUBROUTINE
      SUBROUTINE CREEP(DECRA,DESWA,STATEV,SERD,ECO,ESWO,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(*)
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=5.0D0
      AN2=5.0D0
      AM1=1.0D0
      AM2=0.5D0
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
