C
      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),STATEV(*),PREDEF(*),DPRED(*),
     1     TIME(2),EC(2),ESW(2)
      PARAMETER (ERROR=1.0E-12)
C
      IF (ABS(QTILD).LT.ERROR) GOTO 100
C
      A = 0.002
      ALP=1.0E-6
C
      TMP1=EXP(ALP*QTILD)
C
      T = TIME(2)-DTIME
      IF (ABS(T).LT.ERROR) THEN
         TMP2=LOG(DTIME)
      ELSE
         TMP2=LOG(TIME(2))-LOG(T)
      END IF
C
      DECRA(1)=A*TMP1*TMP2
C
      IF (LEXIMP.EQ.1) THEN
         DECRA(5)=DECRA(1)*ALP
      END IF
C
      STATEV(1)=EC(2)
C
 100  RETURN
      END