GET_MINVALUES.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	get_minvalues (i_glo, v_glo, n_glo, i_loc, n_loc, np)
	Computes positions of minimum values.

Function/Subroutine Documentation

get_minvalues()

subroutine get_minvalues	(	integer*4, dimension(n_glo)	i_glo,
		real*8, dimension(n_glo)	v_glo,
		integer*4	n_glo,
		integer*4, dimension(n_loc)	i_loc,
		integer*4	n_loc,
		integer*4	np
	)

Computes positions of minimum values.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	n_glo	number of global indices
[in]	i_glo	vector conteining global indices
[in]	v_glo	vector conteining global values
[in]	np	number of MPI processors
[in]	n_loc	number of local indices
[out]	i_loc	vector containing local indices corresponding to global minimal values

Definition at line 31 of file GET_MINVALUES.f90.

     
  
     
     implicit none
     
     integer*4 :: n_glo, n_loc, np
     integer*4 :: i,j
 
     integer*4, dimension(1) :: pos
     integer*4, dimension(np) :: ind     
     integer*4, dimension(np) :: pos_glo
     integer*4, dimension(n_glo) :: i_glo
     integer*4, dimension(n_loc) :: i_loc
          
     real*8, dimension(n_glo) :: v_glo
     real*8, dimension(n_loc) :: v_loc
     real*8, dimension(np) :: val
     
    ! write(*,*) v_glo
    ! read(*,*)
    ! write(*,*) i_glo
    ! read(*,*)
     
 
     do i = 1, n_loc
        do j = 1, np
          
          pos_glo(j) = n_loc*(j-1) + i
          ind(j)     = i_glo(n_loc*(j-1) + i)
          val(j)     = v_glo(n_loc*(j-1) + i)
 
    !      write(*,*) j, val(j), ind(j)
    !      read(*,*)
        enddo  
        
       pos = minloc(val)
    !   write(*,*) i, val 
    !   write(*,*) pos(1),pos_glo(pos(1))
    !   write(*,*) '====================='
       !i_loc(i) = ind(pos(1))
       i_loc(i) = pos_glo(pos(1))
            
     enddo         
 

Referenced by find_monitor_position(), make_extint_forces(), make_system_position_lglnodes(), and read_system_position().

Here is the caller graph for this function: