mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-08 07:03:57 +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
|