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.
Source Code
subroutine c_itfft(func_in,func_out)complex(8),dimension(:)::func_incomplex(8),dimension(size(func_in)),optional::func_outcomplex(8),dimension(size(func_in))::ftmpftmp=func_incall ifft(ftmp)call fftex(ftmp)if(present(func_out))thenfunc_out=ifftshift(ftmp)/size(ftmp)elsefunc_in=ifftshift(ftmp)/size(ftmp)endif end subroutine c_itfft