anchor.diff:  integer(C_INT) :: res
   end function
   end interface
  +
   res = sirius_get_num_beta_projectors_aux(handler,label)
   end function sirius_get_num_beta_projectors
   
  
positive.code: type(C_PTR), value, intent(in) :: hubbard_orbitals
  end subroutine
  end interface
  if (present(lmax_apw)) lmax_apw_ptr = C_LOC(lmax_apw)
  if (present(lmax_rho)) lmax_rho_ptr = C_LOC(lmax_rho)
  if (present(lmax_pot)) lmax_pot_ptr = C_LOC(lmax_pot)
  if (present(num_fv_states)) num_fv_states_ptr = C_LOC(num_fv_states)
  if (present(num_bands)) num_bands_ptr = C_LOC(num_bands)
  if (present(num_mag_dims)) num_mag_dims_ptr = C_LOC(num_mag_dims)
  if (present(pw_cutoff)) pw_cutoff_ptr = C_LOC(pw_cutoff)
  if (present(gk_cutoff)) gk_cutoff_ptr = C_LOC(gk_cutoff)
  if (present(aw_cutoff)) aw_cutoff_ptr = C_LOC(aw_cutoff)
  if (present(auto_rmt)) auto_rmt_ptr = C_LOC(auto_rmt)
  if (present(gamma_point)) gamma_point_ptr = C_LOC(gamma_point)
  if (present(use_symmetry)) use_symmetry_ptr = C_LOC(use_symmetry)
  if (present(so_correction)) so_correction_ptr = C_LOC(so_correction)
  if (present(valence_rel)) valence_rel_ptr = C_LOC(valence_rel)
  if (present(core_rel)) core_rel_ptr = C_LOC(core_rel)
  if (present(esm_bc)) esm_bc_ptr = C_LOC(esm_bc)
  if (present(iter_solver_tol)) iter_solver_tol_ptr = C_LOC(iter_solver_tol)
  if (present(iter_solver_tol_empty)) iter_solver_tol_empty_ptr = C_LOC(iter_solver_tol_empty)
  if (present(verbosity)) verbosity_ptr = C_LOC(verbosity)
  if (present(hubbard_correction)) hubbard_correction_ptr = C_LOC(hubbard_correction)
  if (present(hubbard_correction_kind)) hubbard_correction_kind_ptr = C_LOC(hubbard_correction_kind)
  if (present(hubbard_orbitals)) hubbard_orbitals_ptr = C_LOC(hubbard_orbitals)
  call sirius_set_parameters_aux(handler,lmax_apw_ptr,lmax_rho_ptr,lmax_pot_ptr,nu&
  &m_fv_states_ptr,num_bands_ptr,num_mag_dims_ptr,pw_cutoff_ptr,gk_cutoff_ptr,aw_cu&
  &toff_ptr,auto_rmt_ptr,gamma_point_ptr,use_symmetry_ptr,so_correction_ptr,valence&
  
negative.code: integer(C_INT), optional, target, intent(in) :: ngv
  integer(C_INT), optional, target, intent(in) :: gvl
  integer(C_INT), optional, target, intent(in) :: comm
  type(C_PTR) :: ngv_ptr
  type(C_PTR) :: gvl_ptr
  type(C_PTR) :: comm_ptr
  interface
  subroutine sirius_get_pw_coeffs_aux(handler,label,pw_coeffs,ngv,gvl,comm)&
  &bind(C, name="sirius_get_pw_coeffs")
  