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
INTEGER FUNCTION julday(mm,id,iyyy)INTEGER id,iyyy,mm,IGREGPARAMETER(IGREG=15+31*(10+12*1582))INTEGER ja,jm,jyjy=iyyyif(jy.eq.0)then print*,'julday: there is no year zero'return endif if(jy.lt.0)jy=jy+1if(mm.gt.2)thenjm=mm+1elsejy=jy-1jm=mm+13endifjulday=int(365.25*jy)+int(30.6001*jm)+id+1720995if(id+31*(mm+12*iyyy).ge.IGREG)thenja=int(0.01*jy)julday=julday+2-ja+int(0.25*ja)endif return END function julday