Notifications
Clear all

MSC Marc Subroutine IMPD


bornny
Posts: 3
Topic starter
(@bornny)
New Member
Joined: 7 years ago

Greetings,

I wrote the following subroutine to extract nodal stress values. It perfectly writes down the nodal stresses in MSC.Marc installed for Linux, however, when I try to implement this subroutine in MSC.Marc installed for Windows using intel(R) Visual Fortran compiler, error forrt1: severe : Program Exception - access violation occurs.

The subroutine is:

subroutine impd(lnode,dd,td,xord,stnod,f,v,a)

include ../common/implicit

include ../common/array3

include ../common/array2

include ../common/spacevec

include ../common/strvar

include ../common/concom

include ../common/elmcom

include ../common/dimen

integer j

character NodeStress*90

dimension lnode(2)

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

*v(ndeg),a(ndeg)

310 format(I4,(1H:),6E14.6)

if(lnode(2).ne.1) return

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

write(NodeStress,(a,i4.4,a,$)) ./NodalStress_,inc,.dat

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

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

write(inc+1000,(17Hlabel=NodalStress))

write(inc+1000,(13Hnum_item=3800,/))

end if

open(inc+1000)

write(inc+1000,310) lnode(1)-1,(stnod_d((lnode(1)-1)*6+j),

+j=1,6)

return

end

I would appreciate if you could help me to figure out the problem.

Kind Regards,

Reza

Share: