SUBROUTINE USDFLD(FIELD,STATEV,PNEWDT,DIRECT,T,CELENT,TIME,DTIME,CMNAME,ORNAME,NFIELD,NSTATV,NOEL,NPT,LAYER,KSPT,KSTEP,KINC,NDI,NSHR,COORD,JMAC,JMATYP,MATLAYO,LACCFLA)
c     SUBROUTINE USDFLD(FIELD,STATEV,PNEWDT,DIRECT,T,CELENT,
c     1 TIME,DTIME,CMNAME,ORNAME,NFIELD,NSTATV,NOEL,NPT,LAYER,
c     2 KSPT,KSTEP,KINC,NDI,NSHR,COORD,JMAC,JMATYP,MATLAYO,LACCFLA)
      INCLUDE 'ABA_PARAM.INC'
c
C
c      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME,ORNAME
      CHARACTER*3  FLGRAY(15)
c      DIMENSION FIELD(NFIELD),STATEV(NSTATV),DIRECT(3,3),T(3,3),TIME(2)
      DIMENSION FIELD(100),STATEV(100),DIRECT(3,3),T(3,3),TIME(2)
c     1 T(3,3),TIME(2)
      DIMENSION ARRAY(15),JARRAY(15),JMAC(20),JMATYP(20),COORD(20)
c      DIMENSION ARRAY(15),JARRAY(15),JMAC(*),JMATYP(*),COORD(*)

c     Get temperatures from previous increment
      call getvrm('TEMP',array,jarray,flgray,jrcd,
     $    jmac, jmtyp, matlayo, laccflg)
      call getvrm('ER',array,jarray,flgray,jrcd,
     $    jmac, jmtyp, matlayo, laccflg)
      call getvrm('S',array,jarray,flgray,jrcd,
     $    jmac, jmtyp, matlayo, laccflg)
      temp = array(1)
      epsdot11=array(2)
c      epsdot22=array(3)
c      epsdot33=array(4)
c      epsdot12=array(5)
c      epsdot13=array(6)
c      epsdot23=array(7)
      stress11=array(8)
c      stress22=array(9)
c      stress33=array(10)
c      stress12=array(11)
c      stress13=array(12)
c      stress23=array(13)

      field(1) = temp
      field(2) = epsdot11
c      field(3) = epsdot22
c      field(4) = epsdot33
c      field(5) = epsdot12
c      field(6) = epsdot13
c      field(7) = epsdot23
      field(8) = stress11
c      field(9) = stress22
c      field(10) = stress33
c      field(11) = stress12
c      field(12) = stress13
c      field(13) = stress23
   
      statev(1) = field(2)*field(8)
      RETURN
      END 
     

      SUBROUTINE HETVAL(CMNAME,TEMP,TIME,DTIME,SVAR,FLUX,PREDEF,
     1                  DPRED)
c     ,STATEV)
C
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME
      DIMENSION TEMP(2),SVAR(1),PREDEF(1),TIME(2),FLUX(2),DPRED(1)
c     ,
c    1 STATEV(*)
C
      FLUX(1)=0.40483
      RETURN
      END