desiperelem.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	desiperelem (ndesi, istartdesi, ialdesi, ipoeldi, ieldi, ne)

Function/Subroutine Documentation

desiperelem()

subroutine desiperelem	(	integer	ndesi,
		integer, dimension(*)	istartdesi,
		integer, dimension(*)	ialdesi,
		integer, dimension(*)	ipoeldi,
		integer, dimension(2,*)	ieldi,
		integer	ne
	)

!
      implicit none
!
      integer ndesi,istartdesi(*),ialdesi(*),ipoeldi(*),ieldi(2,*),
     &  ieldifree,i,j,nelem,ne
!
!     storing the design variables per element
!
      ieldifree=1
      do i=1,ndesi
         do j=istartdesi(i),istartdesi(i+1)-1
            nelem=ialdesi(j)
            ieldi(1,ieldifree)=i
            ieldi(2,ieldifree)=ipoeldi(nelem)
            ipoeldi(nelem)=ieldifree
            ieldifree=ieldifree+1
         enddo
      enddo
!
!     adding the zero design variable to all elements with
!     a nonzero ipoeldi value
!
      do i=1,ne
         if(ipoeldi(i).eq.0) cycle
         ieldi(1,ieldifree)=0
         ieldi(2,ieldifree)=ipoeldi(i)
         ipoeldi(i)=ieldifree
         ieldifree=ieldifree+1
      enddo
!
      return