!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | ntgrid | |||
integer, | intent(in) | :: | howmany |
subroutine init_zf (ntgrid, howmany)
use fft_work, only: init_z
implicit none
integer, intent (in) :: ntgrid, howmany
if (initialized_zf) return
initialized_zf = .true.
call init_z (zf_fft, 1, 2*ntgrid, howmany)
end subroutine init_zf