From 09859f1b12157b3580ef9014dfae8599d3e92089 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 9 Feb 2019 16:53:05 +0100
Subject: [PATCH] wrong variable rename (was forgotten)

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

diff --git a/src/math.f90 b/src/math.f90
index 4d7736b31..644063d66 100644
--- a/src/math.f90
+++ b/src/math.f90
@@ -2720,7 +2720,7 @@ real(pReal) pure function norm2(v)
  implicit none
  real(pReal), intent(in), dimension(3) :: v
  
- norm2 = sqrt(sum(a**2))
+ norm2 = sqrt(sum(v**2))
 
 end function norm2
 #endif