program create_wf
read_wf = .true.
SOFT_TOUCH read_wf
PROVIDE H_apply_buffer_allocated
call generate_all_alpha_beta_det_products
call diagonalize_ci
call save_wavefunction
end