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_construct_cf_time()type(CF_Time_Integer)::cftitype(CF_Time_Real)::cftrinteger::iduration=1800real(R64)::rduration=1800.0character(len=*),parameter::time_unit='seconds'character(len=*),parameter::base_datetime='1999-12-31 23:29:59'character(len=*),parameter::units=time_unit//' since '//base_datetimecfti=CF_Time_Integer(iduration,units)@assertTrue(cfti%is_valid,'Invalid CF_Time_Integer')@assertEqual(iduration,cfti%duration,'Duration does not match.')@assertEqual(time_unit,cfti%time_unit,'Time unit does not match.')@assertEqual(base_datetime,cfti%base_datetime,'base_datetime does not match.')cftr=CF_Time_Real(rduration,units)@assertTrue(cftr%is_valid,'Invalid CF_Time_Real')@assertEqual(rduration,cftr%duration,'Duration does not match.')@assertEqual(time_unit,cftr%time_unit,'Time unit does not match.')@assertEqual(base_datetime,cftr%base_datetime,'base_datetime does not match.')end subroutine test_construct_cf_time