actideacti.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	actideacti (set, nset, istartset, iendset, ialset, objectset, ipkon, iobject, ne)

Function/Subroutine Documentation

actideacti()

subroutine actideacti	(	character*81, dimension(*)	set,
		integer	nset,
		integer, dimension(*)	istartset,
		integer, dimension(*)	iendset,
		integer, dimension(*)	ialset,
		character*81, dimension(4,*)	objectset,
		integer, dimension(*)	ipkon,
		integer	iobject,
		integer	ne
	)

!
!
      implicit none
!
      character*81 objectset(4,*),set(*)
!
      integer i,j,k,nset,istartset(*),iendset(*),ialset(*),ipkon(*),
     &  iobject,ne
!
!     determining the set
!
      do i=1,nset
         if(objectset(3,iobject).eq.set(i)) exit
      enddo
!
      if(i.le.nset) then
!
!        deactivate all elements
!
         do j=1,ne
            if(ipkon(j).lt.0) cycle
            ipkon(j)=-2-ipkon(j)
         enddo
!
!        reactivate the elements belonging to the set
!
         do j=istartset(i),iendset(i)
            if(ialset(j).gt.0) then
               ipkon(ialset(j))=-ipkon(ialset(j))-2
            else
               k=ialset(j-2)
               do
                  k=k-ialset(j)
                  if(k.ge.ialset(j-1)) exit
                  ipkon(k)=-ipkon(k)-2
               enddo
            endif
         enddo
      endif
!
      return