Create a new figure
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.
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.
subroutine figure
!! Create a new figure
logical,save::isFirst = .true.
if(.not.isFirst) then
call pleop()
else
isFirst = .false.
end if
call plbop()
call plssub(1,1)
call pladv(1)
call resetPen()
end subroutine figure