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