i21fpen.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i21fpen (nsn, i_stok, cand_n, cand_e, peni, ftxsav, ftysav, ftzsav, cand_tag, ifpen, inacti)

Function/Subroutine Documentation

i21fpen()

subroutine i21fpen	(	integer	nsn,
		integer	i_stok,
		integer, dimension(*)	cand_n,
		integer, dimension(*)	cand_e,
			peni,
			ftxsav,
			ftysav,
			ftzsav,
		integer, dimension(*)	cand_tag,
		integer, dimension(*)	ifpen,
		integer	inacti )

Definition at line 28 of file i21fpen.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
C   ROLE DE LA ROUTINE:
C   ===================
C   Remise a 0 de IFPEN si le nd n'est plus candidat
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER I_STOK,NSN,INACTI
      INTEGER CAND_N(*), CAND_E(*), IFPEN(*), CAND_TAG(*)
C     REAL
      my_real
     .   ftxsav(*), ftysav(*), ftzsav(*), peni(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, N
C=======================================================================
C
      DO n=1,nsn
        cand_tag(n) = 0
      END DO
C
      DO i=1,i_stok
        n = cand_n(i)
        cand_tag(n)=1
      END DO
C
       DO n=1,nsn
         IF(cand_tag(n)==0.AND.ifpen(n)/=0)THEN
           ftxsav(n)=zero
           ftysav(n)=zero
           ftzsav(n)=zero
           peni(n)  =zero
           ifpen(n) =0
         END IF
       END DO
C
      RETURN