init_zf Subroutine

public subroutine init_zf(ntgrid, howmany)

Uses

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ntgrid
integer, intent(in) :: howmany

Contents

Source Code


Source Code

  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