fortran - 如何从 UDMGINI 子程序中区分 Abaqus 中的不同裂纹/富集区域？

Question

我想在一个模型中对两个或多个单独的富集区域使用不同的失败标准。这些区域总是在不同的情况下由不同的材料制成。我试图获取实例的名称来区分它们（参见下面的代码），但这非常不稳定——我经常在 JRCD 变量中收到错误标志。有什么方法可以在 UDMGINI 中获取当前的材料名称/元素集/裂缝名称？谢谢

<...>
CHARACTER*80 CPNAME
INTEGER IERROR
<...>
CALL GETPARTINFO(NOEL, 1, CPNAME, LOCNUM, JRCD)
IERROR = IERROR + JRCD
<...>
IF (CPNAME.EQ.'INSTANCE_NAME_1') THEN
<calculation of failure criterion 1>
ELSEIF (CPNAME.EQ.'INSTANCE_NAME_2') THEN
<calculation of failure criterion 2>
END IF
IF (IERROR.NE.ZERO) THEN
 WRITE(6,*) 'REQUEST ERROR IN UDMGINI FOR ELEMENT NUMBER ',
+ NOEL,'INTEGRATION POINT NUMBER ', NPT, ' (INSTANCE NAME)'
END IF
<...>

标签： fortranabaqus