User Model to Define a Material’s Anisotropic Hyperelastic Response¶
Overview¶
uanisohyper_inv is a material model for anisotropic hyperelastic materials.
Interface¶
subroutine uanisohyper_inv(ainv, u, zeta, nfibers, ninv, &
ui1, ui2, ui3, temp, noel, cmname, incmpflag, ihybflag, &
nstatev, statev, nfieldv, fieldv, fieldvinc, &
nprops, props)
implicit none
integer, parameter :: dp=selected_real_kind(14)
real(kind=dp), parameter :: zero=0._dp, one=1._dp, two=2._dp, three=3._dp
character*8, intent(in) :: cmname
integer, intent(in) :: nprops, noel, nstatev, incmpflag, nfieldv
real(kind=dp), intent(in) :: ainv(ninv), props(nprops), temp
real(kind=dp), intent(inout) ui1(ninv)
real(kind=dp), intent(inout) :: ui2(ninv*(ninv+1)/2), ui3(ninv*(ninv+1)/2),
real(kind=dp), intent(inout) :: statev(nstatev)
real(kind=dp), intent(inout) :: fieldv(nfieldv), fieldvinc(nfieldv)
! User coding
end subroutine uanisohyper_inv