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
function string_to_integer_date(time_string,unusable,rc)result(date)character(len=*),intent(in)::time_stringclass(KeywordEnforcer),optional,intent(in)::unusableinteger,optional,intent(out)::rcinteger::dateinteger ypos(2),mpos(2),dpos(2)integer strleninteger firstdash,lastdashinteger year,month,day_UNUSED_DUMMY(unusable)strlen=LEN_TRIM(time_string)firstdash=index(time_string,'-')lastdash=index(time_string,'-',BACK=.TRUE.)if(firstdash.LE.0.OR.lastdash.LE.0)then_RETURN(_FAILURE)endifypos(2)=firstdash-1mpos(1)=firstdash+1ypos(1)=ypos(2)-3mpos(2)=lastdash-1dpos(1)=lastdash+1dpos(2)=dpos(1)+1read(time_string(ypos(1):ypos(2)),*)yearread(time_string(mpos(1):mpos(2)),*)monthread(time_string(dpos(1):dpos(2)),*)daydate=year*10000+month*100+day_RETURN(_SUCCESS)end function string_to_integer_date