nintrn.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
integer function	nintrn (iext, ntn, m, n)

Function/Subroutine Documentation

nintrn()

integer function nintrn	(	integer	iext,
		integer, dimension(m,n)	ntn,
		integer	m,
		integer	n )

Definition at line 28 of file nintrn.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-----------------------------------------------
      INTEGER IEXT, M, N
      INTEGER NTN(M,N)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C-----------------------------------------------
      DO 100 i=1,n
      IF(ntn(m,i)==iext)THEN
       nintrn=i
       RETURN
      ENDIF
 100  CONTINUE
       nintrn=0
      RETURN