Subroutine reduce

Next: Subroutine table_append_row Up: Module table_module Previous: Interface select Contents Index

Subroutine `reduce_allocation`

$\begin{boxedminipage}{\textwidth} \begin{verbatim}call reduce_allocation(this)\end{verbatim} \end{boxedminipage}$

Reduce the allocation if we can, still leaving a bit at the end, not more than this%increment.

this -- type(table), intent(inout)

table_append_row subroutine

gabor 2009-06-30