Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
subroutine MAPL_BalanceDestroy(Handle,rc)integer,optional,intent(IN)::Handleinteger,optional,intent(OUT)::rcinteger::Handle_if(present(Handle))then_ASSERT(Handle>=0,'Handle is less than 0')_ASSERT(Handle<=MAX_NUM_STRATEGIES,'Handle is greater than MAX_NUM_STRATEGIES')Handle_=Handleelse! If we do not pass in a Handle, assume we wish to destroy! the default Strategy which has a Handle of 0Handle_=0end if if(associated(THE_STRATEGIES(Handle_)%NOP))&deallocate(THE_STRATEGIES(Handle_)%NOP)nullify(THE_STRATEGIES(Handle_)%NOP)THE_STRATEGIES(Handle_)%UNBALANCED_LENGTH=-1THE_STRATEGIES(Handle_)%BALANCED_LENGTH=-1THE_STRATEGIES(Handle_)%BUFFER_LENGTH=-1THE_STRATEGIES(Handle_)%PASSES=-1THE_STRATEGIES(Handle_)%COMM=-1_RETURN(LDB_SUCCESS)end subroutine MAPL_BalanceDestroy