program save_for_qmc
 read_wf = .True.
 TOUCH read_wf
 print *,  "N_det = ", N_det
 call write_spindeterminants 
 if (do_pseudo) then
   call write_pseudopotential
 endif
end