ky_store_fq Subroutine

  subroutine ky_store_fq(self,fq,fqa,fqp,ifl_in,it_in,ig_in)
    implicit none
    class(ky_type), intent(in out) :: self
    complex, dimension(:, :), intent(in) :: fq, fqa, fqp
    integer, intent(in) :: ifl_in, it_in, ig_in
    integer :: is

    !If we don't have anything in this supercell then exit
    if (self%is_empty) return

    !Delegate work to supercell
    do is = 1,self%nsupercell
       if (.not.self%supercells(is)%has_it(it_in)) cycle
       call self%supercells(is)%store_fq(fq, fqa, fqp, ifl_in, it_in, ig_in)
    end do
  end subroutine ky_store_fq