Subroutine uniq

Next: Subroutine zero_sum Up: Module linearalgebra_module Previous: Subroutine logical_array_print Contents Index

Subroutine `uniq`

$\begin{boxedminipage}{\textwidth} \begin{verbatim}call uniq(array,uniqed)\end{verbatim} \end{boxedminipage}$

Return a copy of the integer array array with duplicate elements removed. uniq assumes the input array is sorted so that duplicate entries appear consecutively.

array -- integer, intent(in), dimension(:)

uniqed -- integer, dimension(:), allocatable, intent(out)

zero_sum subroutine

gabor 2009-06-30