CHECK_MPI.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	check_mpi (n, v, ind, tt, pos)
	Checks if a an element is present on a vector and give its position.

Function/Subroutine Documentation

check_mpi()

subroutine check_mpi	(	integer*4, intent(in)	n,
		integer*4, dimension(0:n), intent(in)	v,
		integer*4, intent(in)	ind,
		integer*4, intent(out)	tt,
		integer*4, intent(out)	pos
	)

Checks if a an element is present on a vector and give its position.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

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

Definition at line 29 of file CHECK_MPI.f90.

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

Referenced by compute_energy_error(), and setup_mpi_jump().

Here is the caller graph for this function: