Merge pull request #50 from BconstantMMK/main

FastS: bug fix vit_ent
onera · Dec 2, 2024 · c776238 · c776238
2 parents 5a1cc2d + 2eaeff4
commit c776238
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/Fast/FastS/FastS/Compute/Vit_ent/qn_ale_3dfull_i.for b/Fast/FastS/FastS/Compute/Vit_ent/qn_ale_3dfull_i.for
@@ -1,5 +1,6 @@
-         qen= 0.
+#include "FastS/Compute/Vit_ent/venti.for"
+        qen= tcx*ventx +tcy*venty + tcz*ventz
 
-         qn1=qp2*tcx+qp3*tcy+qp4*tcz -qen
-         qn2=qm2*tcx+qm3*tcy+qm4*tcz -qen
+        qn1=qp2*tcx+qp3*tcy+qp4*tcz -qen
+        qn2=qm2*tcx+qm3*tcy+qm4*tcz -qen