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 d_tfft(func_in,func_out)real(8),dimension(:)::func_inreal(8),dimension(size(func_in)),optional::func_outcomplex(8),dimension(size(func_in))::ftmpftmp=ifftshift(func_in)call fft(ftmp)if(present(func_out))thenfunc_out=fftshift(ftmp)*size(ftmp)elsefunc_in=fftshift(ftmp)*size(ftmp)endif end subroutine d_tfft