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 test_are_convertible()type(UDUnit)::unit1type(UDUnit)::unit2integer(ut_status)::statuslogical::convertiblecall initialize_udunits_system(rc=status)@assertEqual(UT_SUCCESS,status,'Failed to initialize')unit1=UDUnit(KM)unit2=UDUnit(M)convertible=are_convertible(unit1,unit2,rc=status)if(.not.convertible)then@assertFalse(status==UT_BAD_ARG,'One of the units is null.')@assertFalse(status==UT_NOT_SAME_SYSTEM,'Units belong to different systems.')end if call unit1%free()call unit2%free()call finalize_udunits_system()end subroutine test_are_convertible