Abaqus子程序Uvarm
本文摘要（由AI生成）：
文章介绍了如何使用UVarm子程序自定义单元输出变量，以便在后处理中查看一些单元结果不包含的变量。Uvarm程序写法简单，只需在定义材料时选择user ouput variables并设置数量即可。本例中定义了两个输出变量，UVAR(1)为三个应力的平均值，UVAR(2)为积分点x坐标。完成计算后，后处理中会出现UVARM1和UVARM2，点击即可查看相应云图。
在后处理中我们可以查看应力、应变、位移等各种单元结果，但有时候我们想用后处理云图来显示一些单元结果不包含的变量，这个时候就可以运用UVarm子程序来自定义单元输出变量了。Uvarm比较简单，在定义材料的时候选择user ouput variables并设置数量即可。
Uvarm程序写法如下，本例中定义了两个输出变量，UVAR(1)为三个应力的的平均值，UVAR(2)为积分点x坐标（仅作参考、无具体物理意义）。
SUBROUTINE UVARM(UVAR,DIRECT,T,TIME,DTIME,CMNAME,ORNAME, 1 NUVARM,NOEL,NPT,LAYER,KSPT,KSTEP,KINC,NDI,NSHR,COORD, 2 JMAC,JMATYP,MATLAYO,LACCFLA) INCLUDE 'ABA_PARAM.INC' C CHARACTER*80 CMNAME,ORNAME CHARACTER*3 FLGRAY(15) DIMENSION UVAR(NUVARM),DIRECT(3,3),T(3,3),TIME(2) DIMENSION ARRAY(15),JARRAY(15),JMAC(*),JMATYP(*),COORD(*)
C The dimensions of the variables FLGRAY, ARRAY and JARRAY C must be set equal to or greater than 15. CALL GETVRM('S',ARRAY,JARRAY,FLGRAY,JRCD,JMAC,JMATYP, 1 MATLAYO,LACCFLA) JERROR = JERROR JRCD UVAR(1) = (ARRAY(1) ARRAY(2) ARRAY(3))/3.0 UVAR(2) = COORD(1) c user coding to define UVAR RETURN END |
完成计算，后处理中会发现输出变量中会出现UVARM1和UVARM2，点击便可查看相应云图。
