error #6219: This variable, used in a specification expression, must be a dum...

159大中锋 · 发表于 2022-5-26 09:12:35

本帖最后由 kyra 于 2022-5-26 10:47 编辑

[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