createialelem.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	createialelem (ne, istartelem, ialelem, ipoeldi, ieldi)

Function/Subroutine Documentation

createialelem()

subroutine createialelem	(	integer	ne,
		integer, dimension(*)	istartelem,
		integer, dimension(*)	ialelem,
		integer, dimension(*)	ipoeldi,
		integer, dimension(2,*)	ieldi
	)

!
      implicit none
!
      integer ne,istartelem(*),ialelem(*),ipoeldi(*),ieldi(2,*),
     &  ifree,i,index
!
!     determining the design variables belonging to a given 
!     element i. They are stored in ialelem(istartelem(i))..
!     ...up to..... ialdesi(istartelem(i+1)-1)
!
      ifree=1
      do i=1,ne
         istartelem(i)=ifree
         index=ipoeldi(i)
         do
            if(index.eq.0) exit
            ialelem(ifree)=ieldi(1,index)
            ifree=ifree+1
            index=ieldi(2,index)
         enddo
      enddo
      istartelem(ne+1)=ifree
!
      return