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 cfft_1d_shift(fin)result(fout)complex(8),dimension(:)::fincomplex(8),dimension(size(fin))::foutinteger::L,p2L=size(fin)p2=floor(dble(L+1)/2.d0)fout=[fin(p2+1:),fin(1:p2)]end function cfft_1d_shift