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