c
c
c-----------------------------------------------------------------------------------         
c    
c-----------------------------------------------------------------------------------         
      SUBROUTINE USDFLD(FIELD,STATEV,PNEWDT,DIRECT,T,CELENT,
     1 TIME,DTIME,CMNAME,ORNAME,NFIELD,NSTATV,NOEL,NPT,LAYER,
     2 KSPT,KSTEP,KINC,NDI,NSHR,COORD,JMAC,JMATYP,MATLAYO,
     3 LACCFLA)
C
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME,ORNAME
      CHARACTER*3  FLGRAY(15)
      DIMENSION FIELD(NFIELD),STATEV(NSTATV),DIRECT(3,3),
     1 T(3,3),TIME(2)
      DIMENSION ARRAY(15),JARRAY(15),JMAC(*),JMATYP(*),
     1 COORD(*)
C
C     
c
      if (noel==1 .and. npt==1) then
        print*, "here1: ",NFIELD,FIELD(1)
      endif
c
        FIELD(1)= time(2)+DTIME
c
      if (FIELD(1) .GT. 1.0) then
        FIELD(1)= 1.0
      endif
c
      if (noel==1 .and. npt==1) then
        print*, "here2: ",NFIELD,FIELD(1)
      endif
c
      RETURN
      END