VGETVRM提取结果异常小？

浏览: 2131

使用 VGETVRM提取结果偏差很大， VGETVRM结果非常小，请问各位大佬这是什么原因？

我把LE11导入到sdv1之中，结果差的非常多

采用的abaqus2023，使用了crashable foam模型。我的代码如下

      SUBROUTINE VUSDFLD(
     1  nblock, nstatev, nfieldv, nprops, ndir, nshr,
     2  jElem, kIntPt, kLayer, kSecPt,
     3  stepTime, totalTime, dt, cmname,
     4  coordMp, direct, T, charLength, props,
     5  stateOld, stateNew, field )

      INCLUDE 'VABA_PARAM.INC'

      DIMENSION jElem(nblock), kIntPt(nblock)
      DIMENSION coordMp(nblock,3), direct(nblock,3,3)
      DIMENSION T(nblock,3,3), charLength(nblock)
      DIMENSION props(nprops)
      DIMENSION stateOld(nblock,nstatev)
      DIMENSION stateNew(nblock,nstatev)
      DIMENSION field(nblock,nfieldv)

      CHARACTER*80 cmname

      INTEGER nrData
      PARAMETER (nrData = 6)

      REAL*8 rData(nblock*nrData)
      INTEGER jData(nblock*nrData)
      CHARACTER*3 cData(nblock*nrData)
      INTEGER jStatus
      INTEGER ioerr, k, offset
      REAL*8 S11, S22, S33, S12, S13, S23
      
      CALL VGETVRM('LE', rData, jData, cData, jStatus)

      DO k = 1, nblock

         field(k,1) = 1.0

         S11 = rData(k)
         S22 = rData(nblock + k)
         S33 = rData(2*nblock + k)
         S12 = rData(3*nblock + k)
         S13 = rData(4*nblock + k)
         S23 = rData(5*nblock + k)
         
         stateNew(k,1) = S11
         stateNew(k,2) = S22
         stateNew(k,3) = S33
         stateNew(k,4) = S12
         stateNew(k,5) = S13
         stateNew(k,6) = S23

      END DO

      RETURN
      END





全部回答 (0)

默认 最新