FIND_POS.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	find_pos (n, vec, tar, ind)
	Find element position on a vector.

Function/Subroutine Documentation

find_pos()

subroutine find_pos	(	integer*4	n,
		integer*4, dimension(n)	vec,
		integer*4	tar,
		integer*4	ind
	)

Find element position on a vector.

Author

Ilario Mazzieri

Date

September, 2013 - Creation

Version

1.0

Parameters

[in]	n
[in]	vec	vec vector where seraching tar
[in]	tar	target
	[ount]	ind position of tar in vec, 0 otherwise

Definition at line 28 of file FIND_POS.f90.

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