subroutine uepactivationvol(
* lFlags,
* epaName,
* noel,
* nElemNodes,
* iElemNodes,
* mcrd,
* coordNodes,
* uNodes,
* kstep,
* kinc,
* time,
* dtime,
* temp,
* npredef,
* predef,
* nsvars,
* svars,
* sol,
* solinc,
* volFract,
* nVolumeAddEvents,
* volFractAdded,
* csiAdded)
C
include 'aba_param.inc'
C
dimension
* lFlags(*),
* iElemNodes(nElemNodes),
* coordNodes(mcrd,nElemNodes),
* uNodes(mcrd,nElemNodes),
* time(2),
* svars(2,nsvars),
* temp(2,nElemNodes),
* predef(2,npredef,nElemNodes),
* sol(nElemNodes),
* solinc(nElemNodes),
* volFract(*),
* volFractAdded(*),
* csiAdded(3,*)
character*80 epaName
user coding to define material volume fraction added.
return
end