subroutine provide_for_selection_slave
  PROVIDE psi_det_sorted_tc_order
  PROVIDE psi_selectors_coef_transp_tc psi_det_sorted_tc 
end