program tc_pt2_prog
  implicit none
  my_grid_becke = .True.
  my_n_pt_r_grid = 30
  my_n_pt_a_grid = 50
  touch  my_grid_becke my_n_pt_r_grid my_n_pt_a_grid 
  pruning = -1.d0
  touch pruning
!  pt2_relative_error = 0.01d0
!  touch pt2_relative_error
  call run_pt2_tc

end


subroutine run_pt2_tc

 implicit none

  PROVIDE psi_det psi_coef mo_bi_ortho_tc_two_e mo_bi_ortho_tc_one_e
  if(elec_alpha_num+elec_beta_num.ge.3)then
    if(three_body_h_tc)then
      call provide_all_three_ints_bi_ortho
    endif
  endif
  ! ---

 call tc_pt2


end