From 63aba3f33f80b56e82c7f8c29cd49fac0002c2f5 Mon Sep 17 00:00:00 2001
From: Jaron Kent-Dobias <jaron@kent-dobias.com>
Date: Mon, 21 Dec 2020 19:15:07 +0100
Subject: Small change.

---
 schofield.wl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/schofield.wl b/schofield.wl
index 6adbe10..7597891 100644
--- a/schofield.wl
+++ b/schofield.wl
@@ -60,8 +60,6 @@ eqMid[D_:2][f_, g_][m_] := SeriesCoefficient[
   Assumptions -> Join[$Assumptions, {θ > 0, θ < θc}]
 ]
 
-eq[D_:2][f_, g_][m_] := Flatten[{eqLow[D][f, g][#], eqMid[D][f, g][#], eqHigh[D][f, g][#]} & /@ Range[0, m]]
-
 Φs = {
   -1.197733383797993,
   -0.318810124891,
@@ -107,5 +105,7 @@ GhRules = MapIndexed[dRule[Gh], Ghs];
 
 rules[f_, g_] := Join[{B -> ruleB[2][f, g]}, ΦRules, GlRules, GhRules]
 
+eq[D_:2][f_, g_][m_] := Select[Flatten[{eqLow[D][f, g][#], eqMid[D][f, g][#], eqHigh[D][f, g][#]} & /@ Range[0, m]] /. rules[f, g], # != 0 &]
+
 EndPackage[]
 
-- 
cgit v1.2.3-54-g00ecf