iface.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
integer function	iface (ip, n)
integer function	iface2 (ip, n)
integer function	iface2t (ip, n)

Function/Subroutine Documentation

iface()

integer function iface	(	integer, dimension(*)	ip,
		integer, dimension(4)	n )

Definition at line 35 of file iface.F.

C-----------------------------------------------
C   D e s c r i p t i o n
C-----------------------------------------------
C This function is searching for face identifier
C  3D case (8 nodes)
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IP(*), N(4)
C-----------------------------------------------
C     S o u r c e   L i n e s
C----------------------------------------------- 
      IF(ip(n(1)) > 0)THEN
       IF(ip(n(2)) > 0)THEN
        IF(ip(n(3)) > 0)THEN
         iface=1
        ELSE
         iface=4
        ENDIF
       ELSE
         iface=6
       ENDIF
      ELSE
       IF(ip(n(3)) > 0)THEN
        IF(ip(n(4)) > 0)THEN
         iface=2
        ELSE
         iface=5
        ENDIF
       ELSE
         iface=3
       ENDIF
      ENDIF
      RETURN

iface2()

integer function iface2	(	integer, dimension(*), intent(in)	ip,
		integer, dimension(2), intent(in)	n )

Definition at line 84 of file iface.F.

C-----------------------------------------------
C   D e s c r i p t i o n
C-----------------------------------------------
C This function is searching for face identifier
C  2D case (4 nodes : QUADS)  
C-----------------------------------------------
C     I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C     D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) ::  IP(*), N(2)      
C-----------------------------------------------
C     S o u r c e   L i n e s
C-----------------------------------------------      
      IF (ip(n(1))  >  0) THEN
         IF (ip(n(2))  >  0) THEN
            iface2 = 1
         ELSE
            iface2 = 4
         ENDIF
      ELSE IF (ip(n(2))  >  0) THEN
         iface2 = 2
      ELSE
         iface2 = 3
      ENDIF

iface2t()

integer function iface2t	(	integer, dimension(*), intent(in)	ip,
		integer, dimension(3), intent(in)	n )

Definition at line 119 of file iface.F.

C-----------------------------------------------
C   D e s c r i p t i o n
C-----------------------------------------------
C This function is searching for face identifier
C  2D case (3 nodes : TRIANGLES)
C-----------------------------------------------
C     I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C     D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) ::  IP(*), N(3)      
C-----------------------------------------------
C     S o u r c e   L i n e s
C-----------------------------------------------       
      iface2t = 0
      IF (ip(n(1))  >  0) THEN
         IF (ip(n(2))  >  0) THEN
            iface2t = 1
         ELSE
            iface2t = 3
         ENDIF
      ELSE IF (ip(n(3))  >  0) THEN
         iface2t = 2
      ENDIF