program save_for_qmc
read_wf = .True.
TOUCH read_wf
call write_spindeterminants
if (do_pseudo) then
call write_pseudopotential
endif
end