[Fortran] 纯文本查看 复制代码
* Temporary arrays
dimension eigen (maxblk*3)
! These arrays are already initialized in Explict before the VUMAT call
! stressNew = zero
! stateNew = zero
! enerInternNew = zero
! enerInelasNew = zero
eigen = zero
nDmg = 0
*
* Read material properties
*
E1 = props(i_pro_E1)
E2 = props(i_pro_E2)
E3 = props(i_pro_E3)
xnu12 = props(i_pro_nu12)
xnu13 = props(i_pro_nu13)
xnu23 = props(i_pro_nu23)
G12 = props(i_pro_G12)
G13 = props(i_pro_G13)
G23 = props(i_pro_G23)
*
xnu21 = xnu12 * E2 / E1
xnu31 = xnu13 * E3 / E1
xnu32 = xnu23 * E3 / E2