subroutine provide_for_selection_slave PROVIDE psi_det_sorted_order PROVIDE psi_selectors_coef_transp psi_det_sorted end