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


c     user coding to define FLUX and update STATEV
      test=statev(1)
      Flux(1)=statev(1)*10.4
      a(1)=Flux(1)
      Flux(1)=test*10.4
c     a und flux sollten das gleiche enthalten      

      RETURN
      END