is_sup_face_id.F File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	is_sup_face_id (a, b)

Function/Subroutine Documentation

is_sup_face_id()

integer function is_sup_face_id	(	integer, dimension(4)	a,
		integer, dimension(4)	b )

Definition at line 30 of file is_sup_face_id.F.

C-----------------------------------------------
C   I n f o r m a t i o n s            
C-----------------------------------------------
C Comparison of the User ID of two faces.
C This UID is defined by four User ID of the nodes
C-----------------------------------------------
C   Dummy   Arguments
C-----------------------------------------------
        INTEGER :: A(4),B(4)
        INTEGER :: IS_SUP_FACE_ID
        is_sup_face_id = 0       
        IF( a(1) > b(1) .OR.
     .  a(1) == b(1) .AND. ( a(2) > b(2) .OR.
     .  a(2) == b(2) .AND. ( a(3) > b(3) .OR.
     .  a(3) == b(3) .AND. a(4) > b(4)))) THEN
          is_sup_face_id = 1
        ENDIF
        RETURN