9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-21 11:03:29 +01:00

Removed qmcpack specific function

This commit is contained in:
Anthony Scemama 2020-02-12 13:08:05 -06:00 committed by GitHub
parent 0e29b1c264
commit 82e68255b2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -489,25 +489,6 @@ subroutine save_wavefunction
endif endif
end 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 subroutine save_wavefunction_unsorted
implicit none implicit none