i7cmp3.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"
#include "vect07_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i7cmp3b (i_stok, cand_e, cand_n, prov_e, prov_n, pene)
subroutine	i7cmp3 (i_stok, cand_e, cand_n, iflag, pene, prov_n, prov_e)

Function/Subroutine Documentation

i7cmp3()

subroutine i7cmp3	(	integer	i_stok,
		integer, dimension(*)	cand_e,
		integer, dimension(*)	cand_n,
		integer	iflag,
		intent(in)	pene,
		integer, dimension(mvsiz), intent(in)	prov_n,
		integer, dimension(mvsiz), intent(in)	prov_e )

Definition at line 80 of file i7cmp3.F.

C============================================================================
C  this routine is called by: I7BUC1(/inter3d1/i7buc1.F)
C                                  I7TRI(/inter3d1/i7tri.F)
C----------------------------------------------------------------------------
C  this routine calls: -
C============================================================================
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "vect07_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER I_STOK, IFLAG
      INTEGER CAND_N(*),CAND_E(*)
      INTEGER, DIMENSION(MVSIZ), INTENT(IN) :: PROV_N,PROV_E    
      my_real, DIMENSION(MVSIZ), INTENT(IN) :: pene
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C     REAL
C-----------------------------------------------
C
C
      IF(iflag==0) THEN
C     CAS DENOMBREMENT SEULEMENT
      DO 100 i=lft,llt
      IF(pene(i)/=zero)THEN
       i_stok = i_stok + 1
      ENDIF
 100  CONTINUE
      ELSE
C     CAS DECHARGEMENT
      DO 200 i=lft,llt
      IF(pene(i)/=0.0)THEN
       i_stok = i_stok + 1
       cand_n(i_stok) = prov_n(i)
       cand_e(i_stok) = prov_e(i)
      ENDIF
 200  CONTINUE
      ENDIF
C
      RETURN

i7cmp3b()

subroutine i7cmp3b	(	integer	i_stok,
		integer, dimension(*)	cand_e,
		integer, dimension(*)	cand_n,
		integer, dimension(mvsiz)	prov_e,
		integer, dimension(mvsiz)	prov_n,
		integer, dimension(mvsiz)	pene )

Definition at line 26 of file i7cmp3.F.

C============================================================================
C  this routine is called by: I7BUC1(/inter3d1/i7buc1.F)
C                                  I7TRI(/inter3d1/i7tri.F)
C----------------------------------------------------------------------------
C  this routine calls: -
C============================================================================
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "vect07_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER I_STOK
      INTEGER CAND_N(*),CAND_E(*),PROV_N(MVSIZ),PROV_E(MVSIZ),PENE(MVSIZ)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C     REAL
C-----------------------------------------------
C     CAS DECHARGEMENT
      DO i=lft,llt
        IF(pene(i)/=0.0)THEN
          i_stok = i_stok + 1
          cand_n(i_stok) = prov_n(i)
          cand_e(i_stok) = prov_e(i)
        ENDIF
      ENDDO     
      RETURN