开始的时候statevalue没有赋值
STRESS1=STRESS(1)
STRAN1=STRAN(1)
IF((-1)*STRESS1.LT.STRESSC.OR.STRESS1.LT.STRESST) THEN
DDSDDE(1,1)=EC
DDSDDE(2,2)=EG
STRESS(1)=STRESS(1)+DDSDDE(1,1)*DSTRAN(1)
STRESS(2)=STRESS(2)+DDSDDE(2,2)*DSTRAN(2)
STATEVALUE=1
END IF
如果STRESS(1)超过了受拉或受压强度时,statevalue就没有赋值,子程序就自己运行到
STRAN1=STRAN(1)
STRESS1=STRESS(1)
c
IF((-1)*STRIN1.GT.STRANUCC.OR.STRESS1.GT.FT) THEN
STRESS(1)=0
STRAN(1)=STRAN(1)+DSTRAN(1)
STATEVALUE=6
END IF
STATEV(1)=STRAN1
STATEV(2)=STRESS1
RETURN
END