elementperorien.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	elementperorien (ipoorel, iorel, ielorien, ne, mi)

Function/Subroutine Documentation

elementperorien()

subroutine elementperorien	(	integer, dimension(*)	ipoorel,
		integer, dimension(2,*)	iorel,
		integer, dimension(mi(3),*)	ielorien,
		integer	ne,
		integer, dimension(*)	mi
	)

!
      implicit none
!
      integer ipoorel(*),iorel(2,*),i,ne,mi(*),ielorien(mi(3),*),
     &  iorelfree,iorien
!
!     determining the elements belonging to the nodes of
!     the elements
!
      iorelfree=1
      do i=1,ne
         iorien=ielorien(1,i)
         if(iorien.eq.0) cycle
         iorel(1,iorelfree)=i
         iorel(2,iorelfree)=ipoorel(iorien)
         ipoorel(iorien)=iorelfree
         iorelfree=iorelfree+1
      enddo
!
      return