From 82e68255b2c496f807152d8c83f83cae433678cb Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 12 Feb 2020 13:08:05 -0600
Subject: [PATCH] Removed qmcpack specific function

---
 src/determinants/determinants.irp.f | 19 -------------------
 1 file changed, 19 deletions(-)

diff --git a/src/determinants/determinants.irp.f b/src/determinants/determinants.irp.f
index f1aab1dc..71ee3d89 100644
--- a/src/determinants/determinants.irp.f
+++ b/src/determinants/determinants.irp.f
@@ -489,25 +489,6 @@ 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