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.
Source Code
subroutine d_wait(time)real(8)::time! desired sleep interval [ms]integer,dimension(8)::t! arguments for date_and_timeinteger::s1,s2,ms1,ms2! start and end times [ms]! Get start time:call date_and_time(values=t)ms1=(t(5)*3600+t(6)*60+t(7))*1000+t(8)!do! check time:call date_and_time(values=t)ms2=(t(5)*3600+t(6)*60+t(7))*1000+t(8)if(ms2-ms1>=time)exit enddo return end subroutine d_wait