FIND.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
integer *4 function	find (n, vec, tar)
	Searches for element in a vector.

Function/Subroutine Documentation

find()

integer*4 function find	(	integer*4	n,
		integer*4, dimension(n)	vec,
		integer*4	tar
	)

Searches for element in a vector.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	n	dimension if vec
[in]	vec	vector
[in]	tar	target to find
[out]	FIND	1 if tar is in vec, 0 otherwise

Definition at line 28 of file FIND.f90.

                                                                     
      implicit none
 
      integer*4 :: n, i, tar, FIND
      integer*4, dimension(n) :: vec
 
      do i = 1, n
        if(vec(i) .eq. tar) then
          find = 1
          return
        endif
      enddo
 
      find = 0 
      return   
       

References find().

Referenced by find().

Here is the call graph for this function:

Here is the caller graph for this function: