From 8fc560616a85d5e5321b875009e25ff666e0e3ac Mon Sep 17 00:00:00 2001 From: StuartBenjamin Date: Tue, 13 Oct 2026 05:50:52 -0700 Subject: [PATCH] RDCON - BUGFIX - Galerkin vacuum matrix keeps its imaginary part free_get_wvac called mscvac with complex_flag=.FALSE., so the Galerkin Delta' saw only Re(wv) and, on up-down asymmetric equilibria, missed the frame fix of the previous commits. Co-Authored-By: Claude Opus 5.5 --- rdcon/free.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rdcon/free.f b/rdcon/free.f index 3c84387d..f7b236e6 100644 --- a/rdcon/free.f +++ b/rdcon/free.f @@ -670,7 +670,7 @@ END SUBROUTINE free_ahb_write c declarations. c----------------------------------------------------------------------- SUBROUTINE free_get_wvac() - LOGICAL, PARAMETER :: complex_flag=.FALSE. + LOGICAL, PARAMETER :: complex_flag=.TRUE. INTEGER :: ipert REAL(r8) :: kernelsignin REAL(r8), DIMENSION(mpert) :: singfac