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
function zeye_tridiag(Nblock,N)result(eye_block)integer::Nblockinteger::Ncomplex(8),dimension(Nblock,N,N)::eye_blockinteger::iblockdo iblock=1,Nblockeye_block(iblock,:,:)=zeye(N)enddo end function zeye_tridiag