c
c USER CREEP SUBROUTINE
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)
      INCLUDE 'ABA_PARAM.INC'
      CHARACTER*80 CMNAME
      DIMENSION DECRA(5),DESWA(5),STATEV(*),PREDEF(*),DPRED(*)
      DIMENSION TIME(2),COORDS(*),EC(2),ESW(2)
 
      A=1.0d-21
      N=5
 
      DO 100 K1=1,5
      DECRA(K1) = 0.D0
      DESWA(K1) = 0.D0
  100 CONTINUE

C -   CONSOLIDATION
      DECRA(1) = A*QTILD**N*DTIME
      IF (QTILD.NE.0.0) DECRA(5) = DBLE(N)*DECRA(1)/QTILD

C -   COHESION
      DESWA(1) = A*P**N*DTIME
      IF (P.NE.0.0) DESWA(4) = DBLE(N)*DESWA(1)/P
C
      STATEV(1)=EC(2)
      STATEV(2)=ESW(2)
      write(7,*)'ESW(2)=',ESW(2)
C
      RETURN
      END