CHECK_VECTOR.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	check_vector (n, v, ind, tt)
	Checks if an element is present in a vector.

Function/Subroutine Documentation

check_vector()

subroutine check_vector	(	integer*4, intent(in)	n,
		integer*4, dimension(n), intent(in)	v,
		integer*4, intent(in)	ind,
		integer*4, intent(out)	tt
	)

Checks if an element is present in a vector.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	n	dimension of v
[in]	v	vector
[in]	ind	index to find
[out]	tt	1 if ind is in v, 0 otherwise

Definition at line 28 of file CHECK_VECTOR.f90.

    
    implicit none
    
    integer*4 :: i
    
    integer*4, intent(in) ::n,ind
    integer*4, dimension(n), intent(in)  :: v
    integer*4, intent(out) :: tt
 
    tt = 0
    i = 1
    
    do while (i.le.n)
       if (v(i) .eq. ind) then
          tt = 1
          return
       endif   
       i=i+1
    enddo    
    

Referenced by setup_mpi_jump().

Here is the caller graph for this function: