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(*),
* iElemNodes(nElemNodes),
* coordNodes(mcrd,nElemNodes),
* uNodes(mcrd,nElemNodes),
* time(2),
* svars(2,nsvars),
* temp(2,nElemNodes),
* predef(2,npredef,nElemNodes),
* sol(nElemNodes),
* dsol(nElemNodes),
* volInt(nIntp),
* nHeatEvents,
* flux(nHeatEvents),
* dfluxdT(nHeatEvents),
* csiStart(3,nHeatEvents),
* csiEnd(3,nHeatEvents)
user coding to define moving flux.
return
end