edg.f File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	edg (l, k, e)

Function/Subroutine Documentation

edg()

integer function edg	(	integer	l,
		integer	k,
		integer, dimension(3,*)	e
	)

!     
      implicit none
!     
      integer l,k,i,e(3,*),edg
!     
      do 10 i=1,3
         if(e(i,l).eq.k) then
            edg=i
            return
         end if
 10   continue
      write(6,'("0***error in function edg***")')
      write(6,'("***elements not adjacent***")')
      call exit(201)