From 86bb3d20a6da356dabc547a753678c9707429912 Mon Sep 17 00:00:00 2001 From: CharlesCNorton Date: Wed, 2 Sep 2026 08:48:24 -0400 Subject: [PATCH] Carry signgs in chi --- src/eqfor.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/eqfor.f90 b/src/eqfor.f90 index 7634acd6b..35975b75a 100644 --- a/src/eqfor.f90 +++ b/src/eqfor.f90 @@ -160,7 +160,7 @@ SUBROUTINE eqfor(br, bz, bsubu, bsubv, tau, rzl_array, ier_flag) phi1(i) = phi1(i-1) + hs*phip(i) chi1(i) = chi1(i-1) + hs*(phip(i)*iotas(i)) END DO - chi = twopi*chi1 + chi = twopi*signgs*chi1 ! same sign convention as phi (fileout) and the phipf, chipf written by wrout