MSC。Marc子例程

问候,

我写了下面的子程序来提取节点应力值。它完美地记录了骨髓间充质干细胞的节点应力。为Linux安装Marc;然而，当我试图在MSC实现这个子程序。在使用intel(R) Visual Fortran编译器的Windows上安装Marc时，出现错误"forrt1: severe <157>: Program Exception - access violation"。

子程序为:

子例程impd (lnode dd, td、xord stnod, f, v, a)

包括“. . /共同/隐式”

包括“. . /共同/ array3 '

包括“. . /共同/ array2 '

包括“. . /共同/ spacevec '

包括“. . /共同/ strvar '

包括“. . /共同/ concom '

包括“. . /共同/ elmcom '

包括“. . /共同/ dimen '

整数j

性格NodeStress * 90

维lnode (2)

维dd (ndeg), td (ndeg) xord (ncrd), f (ndeg),

* v (ndeg) (ndeg)

310格式(预告(1 h:), 6 e14.6)

如果(lnode (2) .ne.1)回来

如果(lnode (1) .eq.1)

写(NodeStress”(a i4.4, $)”)”。/ NodalStress_’公司,“.dat”

open(unit = inc+1000,file=NodeStress,status="new")

C if(lnode(1).eq.1) then

写(公司+ 1000 (17 hlabel = NodalStress))

写(公司+ 1000,“(13 hnum_item = 3800 /)”)

如果

打开(公司+ 1000)

写(公司+ 1000,310)lnode (1) 1 (stnod_d ((lnode (1) 1) * 6 + j),

+ j = 1, 6)

返回

结束

如果你能帮我解决这个问题，我将不胜感激。

亲切的问候,

雷扎