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