User login

Navigation

You are here

MSC.Marc Subroutine

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

Subscribe to Comments for "MSC.Marc Subroutine "

Recent comments

More comments

Syndicate

Subscribe to Syndicate