subroutine umdflux(
* jFlags, amplitude, noel, nElemNodes, iElemNodes,
* mcrd, coordNodes, uNodes, kstep, kinc, time, dt, jlTyp,
* temp, npredef, predef, nsvars, svars, sol, dsol,
* nIntp, volElm, volInt,
* nHeatEvents, flux, dfluxdT, csiStart, csiEnd)
C
include 'aba_param.inc'
C
dimension jFlags(2), iElemNodes(nElemNodes),
* coordNodes(mcrd,nElemNodes), uNodes(mcrd,nElemNodes),
* volInt(nIntp), time(2), dt(2),
* temp(2,nElemNodes), predef(2,npredef,nElemNodes),
* svars(nsvars,2), sol(nElemNodes), dsol(nElemNodes),
* flux(nHeatEvents), dfluxdT(nHeatEvents),
* csiStart(3,nHeatEvents), csiEnd(3,nHeatEvents)
user coding to define nHeatEvents, flux, dfluxdT, csiStart, csiEnd,
and possibly update dt, svars
return
end