mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-30 15:53:42 +02:00
Fix for save_for_qmcpack (#72)
This commit is contained in:
parent
98857368ee
commit
aded338cc5
@ -489,6 +489,25 @@ subroutine save_wavefunction
|
||||
endif
|
||||
end
|
||||
|
||||
subroutine save_wavefunction_qmcpack
|
||||
implicit none
|
||||
use bitmasks
|
||||
BEGIN_DOC
|
||||
! Save the wave function into the |EZFIO| file
|
||||
END_DOC
|
||||
|
||||
! Trick to avoid re-reading the wave function every time N_det changes
|
||||
! This Trick destroys determinants when saving for qmcpack
|
||||
!read_wf = .False.
|
||||
|
||||
if (N_det < N_states) then
|
||||
return
|
||||
endif
|
||||
if (mpi_master) then
|
||||
call save_wavefunction_general(N_det,N_states,psi_det_sorted,size(psi_coef_sorted,1),psi_coef_sorted)
|
||||
endif
|
||||
end
|
||||
|
||||
|
||||
subroutine save_wavefunction_unsorted
|
||||
implicit none
|
||||
|
Loading…
Reference in New Issue
Block a user