Contact Forces

set,last

esel,s,ename,,174

*get,enum,elem,,count

*get,emin,elem,,num,min

*dim,rfarray,array,enum,4

ee=emin

*do,i,1,enum
rfarray(i,1)=ee
*get,rfarray(i,2),elem,ee,nmisc,43
*get,rfarray(i,3),elem,ee,nmisc,44
*get,rfarray(i,4),elem,ee,nmisc,45
ee=elnext(ee)
*enddo

*cfopen,forces,txt

*vwrite
('Element nr',TR10,'FX',TR18,'FY',TR18,'FZ')

*vwrite,rfarray(1,1),rfarray(1,2),rfarray(1,3),rfarray(1,4)
(F5.0,TL1,' ',TR10,F10.5,TR10,F10.5,TR10,F10.5)

*cfclose


fsum,,cont

*get,my_FX,fsum,,item,fx