next up previous contents index
Next: Subroutine tidy_groups Up: Module group_module Previous: Subroutine group_add_object   Contents   Index

Subroutine groups_create_lookup


\begin{boxedminipage}{\textwidth}
\begin{verbatim}call groups_create_lookup(this,lookup[,first,ungrouped_error])\end{verbatim}
\end{boxedminipage}

Create an atom lookup table: The supplied lookup table will be filled with the group number that atom i belongs to, with an error if it belongs to multiple groups or if an atom is ungrouped (unless ungrouped errors are turned off).

The first group is 1 by default, but can be overridden with the first argument

this -- type(Group), dimension(:), intent(in)

lookup -- integer, dimension(:), intent(inout)

first -- integer, optional, intent(in)

ungrouped_error -- logical, optional, intent(in)

tidy_groups subroutine

gabor 2009-06-30