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 <157>: 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