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.
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_DestroyFile(unit,RC)IMPLICIT NONEinteger,intent(in)::unitinteger,intent(out),OPTIONAL::RCinteger::i,k!ALT: Currently, this is NOP except for RAM filesif(unit<0)then! this is RAM "file", do it!i=-unitif(associated(mem_units(i)%records))then do k=1,size(mem_units(i)%records)call dealloc_(mem_units(i)%records(k))end do deallocate(mem_units(i)%records)nullify(mem_units(i)%records)end ifmtaken(i)=.false.mname(i)=''end if if(present(rc))rc=0return end subroutine MAPL_DestroyFile