diff --git a/modules/aerodyn/src/AeroAcoustics.f90 b/modules/aerodyn/src/AeroAcoustics.f90
index 3e0cd6942..308d3476d 100644
--- a/modules/aerodyn/src/AeroAcoustics.f90
+++ b/modules/aerodyn/src/AeroAcoustics.f90
@@ -948,7 +948,7 @@ SUBROUTINE CalcAeroAcousticsOutput(u,p,m,xd,y,errStat,errMsg)
          ENDIF
             
          IF (J .EQ. p%NumBlNds) THEN
-            elementspan =   (p%BlSpn(J,I)-p%BlSpn(J-1,I))/2 
+            elementspan =   p%BlSpn(J,I)-p%BlSpn(J-1,I)
          ELSE
             elementspan =   (p%BlSpn(J,I)-p%BlSpn(J-1,I))/2    +    (p%BlSpn(J+1,I)-p%BlSpn(J,I))/2  
          ENDIF
diff --git a/reg_tests/r-test b/reg_tests/r-test
index 0d2bd3b2c..d3b98ef5b 160000
--- a/reg_tests/r-test
+++ b/reg_tests/r-test
@@ -1 +1 @@
-Subproject commit 0d2bd3b2cff1511539e223951fc73d54a87e8a2d
+Subproject commit d3b98ef5b3c9d6f327fd9cbda9f28dfaef493847