VGETVRM提取结果异常小?
浏览:632
使用 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




















