mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-25 05:43:47 +01:00
9 lines
146 B
Fortran
9 lines
146 B
Fortran
program save_for_qmc
|
|
read_wf = .True.
|
|
TOUCH read_wf
|
|
call write_spindeterminants
|
|
if (do_pseudo) then
|
|
call write_pseudopotential
|
|
endif
|
|
end
|