mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-21 04:32:14 +02:00
10 lines
175 B
Fortran
10 lines
175 B
Fortran
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
|