From 9bad3061dbbcb655b09dfcd9f17b442db5657fa1 Mon Sep 17 00:00:00 2001
From: "k.ido" <13773226+k-ido@users.noreply.github.com>
Date: Thu, 8 Aug 2024 09:46:45 +0900
Subject: [PATCH] mod

---
 src/mVMC/locgrn.c   | 6 +++++-
 src/mVMC/lslocgrn.c | 9 +++------
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/src/mVMC/locgrn.c b/src/mVMC/locgrn.c
index f9af4300..71f0fec7 100644
--- a/src/mVMC/locgrn.c
+++ b/src/mVMC/locgrn.c
@@ -288,6 +288,10 @@ double complex GreenFuncN(const int n, int *rsi, int *rsj, const double complex
 
   MakeProjCnt(projCntNew,eleNum);
   x = ProjRatio(projCntNew,eleProjCnt);
+  if (FlagRBM) {
+    MakeRBMCnt(rbmCntNew, eleNum);
+    x *= RBMRatio(rbmCntNew,rbmCnt);
+  }
 
   /* calculateNewPfM */
   for(qpidx=0;qpidx<NQPFull;qpidx++) {
@@ -304,7 +308,7 @@ double complex GreenFuncN(const int n, int *rsi, int *rsj, const double complex
     eleNum[rsi[k]] = 0;
   }
 
-  return x*z/ip;
+  return conj(x*z/ip);
 }
 
 //
diff --git a/src/mVMC/lslocgrn.c b/src/mVMC/lslocgrn.c
index e48add6a..e1024073 100644
--- a/src/mVMC/lslocgrn.c
+++ b/src/mVMC/lslocgrn.c
@@ -626,12 +626,9 @@ double complex calHCACA1(const int ri, const int rj, const int rk, const int rl,
 
   ReleaseWorkSpaceInt();
   ReleaseWorkSpaceComplex();
-  if (FlagRBM) {
-    return e*conj(z*ipNew/ip);
-  }
-  else {
-    return e*z*ipNew/ip;
-  }
+
+  return e*conj(z*ipNew/ip);
+
 }
 
 /* calculate <psi| H C_is A_js C_kt A_lt|x>/<psi|x> for <psi|CACA|x>/<psi|x>=0 */