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.
function date_time_str()! Returns the formatted current date and time.character(len=19)::date_time_strinteger,dimension(8)::time_valscharacter(len=44),parameter::time_format='(i4,"-",i2,"-",i2,1x,'//&'i2.2,":",i2.2,":",i2.2)'call date_and_time(values=time_vals)write(date_time_str,time_format)time_vals(1:3),time_vals(5:7)end function date_time_str