subroutine vufluidexcheffarea(
C Read only (unmodifiable) variables -
1 nblock, nprop, props,
2 stepTime, totalTime, fluExchName,
3 cMatName, lFabric, braidAngle,
4 strain, origArea,
5 pcav, ctemp,
C Write only (modifiable) variables
6 effArea)
c
include 'vaba_param.inc'
c
parameter (ndir = 3, nshr=1)
c
c pointers for retrieving fabric constitutive strains
parameter( iFiberStrain1 = 1,
* iFiberStrain2 = 2,
* iFiberChangeAng = 4)
c
dimension props(nprop),
1 braidAngle(nblock),
2 strain(nblock, ndir+nshr),
3 origArea(nblock),
4 pcav(2),ctemp(2),
5 effArea(nblock)
character*80 fluExchName, cMatName
c do k = 1, nblock
c User coding to update effArea(k) = area associated with
c material point contributing to area for fluid exchange
c (leakage).
c end do
return
end