anchor.diff:  logical(C_BOOL) :: res
   end function
   end interface
  +
   res = sirius_context_initialized_aux(handler)
   end function sirius_context_initialized
   
  
positive.code: integer(C_INT), intent(in) :: ld
  end subroutine
  end interface
  call sirius_set_hubbard_potential_aux(handler,pot,ld)
  end subroutine sirius_set_hubbard_potential_double
  
  
negative.code: real(C_DOUBLE), intent(in) :: f_rg
  end subroutine
  end interface
  
  call sirius_set_periodic_function_ptr_aux(handler,label,f_mt,f_rg)
  end subroutine sirius_set_periodic_function_ptr
  
  