如何从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
<...>