C
C user subroutine vhetval
      subroutine vhetval (
C Read only (unmodifiable) variables -
     *     nblock, nElem, nIntPt, nLayer, nSectPt, 
     *     ntgrad, nstatev, nfieldv, nprops,
     *     cmname, stepTime, totalTime, dt, 
     *     coordMp, density, props,
     *     tempOld, fieldOld, stateOld, 
     *     tempNew, tempgradNew, fieldNew, 
C Write only (modifiable) variables -
     *     stateNew, flux )
C
      include 'vaba_param.inc'
C
      dimension nElem(nblock)
C
      dimension coordMp(nblock,*), density(nblock), props(nprops),
     *    tempOld(nblock), fieldOld(nblock, nfieldv), 
     *    stateOld(nblock, nstatev), tempNew(nblock), 
     *    tempgradNew(nblock, ntgrad), fieldNew(nblock, nfieldv), 
     *    stateNew(nblock, nstatev), flux(nblock)
C
      character*80 cmname
* propereties
* 1. generated heat flux
*
      fluxGen = props(1)
      do km = 1, nblock
         flux(km) = fluxGen
      end do
C
      return
      end