checktruecontact.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	checktruecontact (ntie, tieset, tietol, elcon, itruecontact, ncmat_, ntmat_)

Function/Subroutine Documentation

checktruecontact()

subroutine checktruecontact	(	integer	ntie,
		character*81, dimension(3,*)	tieset,
		real*8, dimension(3,*)	tietol,
		real*8, dimension(0:ncmat_,ntmat_,*)	elcon,
		integer	itruecontact,
		integer	ncmat_,
		integer	ntmat_
	)

!
!     check whether for face-to-face penalty contact the
!     surface behavior definition is such that true contact is 
!     defined and not just tied contact
!
      implicit none
!
      character*81 tieset(3,*)
!
      integer itruecontact,i,ntie,imat,ncmat_,ntmat_
!
      real*8 tietol(3,*),elcon(0:ncmat_,ntmat_,*)
!
!     if at least one tied contact is present, itruecontact
!     is set to zero and no check is performed whether tension
!     occurs in the contact areas
!
      itruecontact=1
      do i=1,ntie
         if(tieset(1,i)(81:81).eq.'C') then
            imat=int(tietol(2,i))
            if(int(elcon(3,1,imat)).eq.4) then
               itruecontact=0
               exit
            endif
         endif
      enddo
!
      return