From 67b91d6f0eed090c1657b8b812512bc722198aa0 Mon Sep 17 00:00:00 2001 From: "David R. Smith" Date: Fri, 8 Jan 2016 14:30:46 -0500 Subject: [PATCH] fixed bug in which gridgen/restrict_psi_range changed x-point count to 1 --- tools/tokamak_grids/gridgen/restrict_psi_range.pro | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tools/tokamak_grids/gridgen/restrict_psi_range.pro b/tools/tokamak_grids/gridgen/restrict_psi_range.pro index 7d7097ce..43d53cbd 100644 --- a/tools/tokamak_grids/gridgen/restrict_psi_range.pro +++ b/tools/tokamak_grids/gridgen/restrict_psi_range.pro @@ -24,8 +24,8 @@ FUNCTION restrict_psi_range, critical, psi_outer inner_sep = 0 ENDIF ELSE BEGIN ; Need to update inner_sep - w2 = WHERE(w EQ critical.inner_sep, count) - IF count EQ 1 THEN BEGIN + w2 = WHERE(w EQ critical.inner_sep, count2) + IF count2 EQ 1 THEN BEGIN inner_sep = w2[0] ENDIF ELSE BEGIN w = [critical.inner_sep]