cutfunc.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	cutfunc (func, ivois, al, nodcut)

Function/Subroutine Documentation

cutfunc()

subroutine cutfunc	(		func,
		integer, dimension(2,*)	ivois,
			al,
		integer	nodcut )

Definition at line 30 of file cutfunc.F.

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-----------------------------------------------
      my_real func(*), al(*)
      INTEGER IVOIS(2,*),NODCUT,I 
C-----------------------------------------------
      REAL R4
C-----------------------------------------------
      DO i=1,nodcut
         r4 =al(i)*func(ivois(2,i))+(one-al(i))*func(ivois(1,i)) 
         CALL write_r_c(r4,1)
      ENDDO
C-----------------------------------------------
      RETURN