From 2ceb3aeea08b4a4fa33f63faa98419eb149c956a Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Tue, 13 Mar 2018 03:56:02 +0100
Subject: [PATCH] not all variables were consistently renamed

---
 src/math.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/math.f90 b/src/math.f90
index 70879cf77..742ab2f2c 100644
--- a/src/math.f90
+++ b/src/math.f90
@@ -1831,7 +1831,7 @@ function math_sampleFiberOri(alpha,beta,FWHM)
    reducedTo2D: do i=1_pInt,3_pInt
      if (i /= minloc(abs(fInS),1)) then
        a=[a,fInS(i)]
-       idx=[b,i]
+       idx=[idx,i]
      else
        j = i
      endif