next up previous contents index
Next: Subroutine group_delete_atom Up: Module group_module Previous: Interface set_type   Contents   Index

Subroutine merge_groups


\begin{boxedminipage}{\textwidth} \begin{verbatim}call merge_groups(g1,g2)\end{verbatim} \end{boxedminipage}

Merge: $g1 + g2 \to g1$. If $g2 = g1$ then the result is $g1$

g1, g2 -- type(Group), intent(inout)

group_delete_atom subroutine
gabor 2009-06-30