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.
subroutine clean_ws_translate() !====================================================! implicit none done_ws_distance = .false. if(allocated(irdist_ws)) deallocate(irdist_ws) if(allocated(wdist_ndeg)) deallocate(wdist_ndeg) if(allocated(crdist_ws)) deallocate(crdist_ws) !====================================================! end subroutine clean_ws_translate