From 3d0cf1ed2db62cf7f356918fd4b3e810c7d270d6 Mon Sep 17 00:00:00 2001
From: David Minton <daminton@purdue.edu>
Date: Tue, 3 Mar 2020 12:53:43 -0500
Subject: [PATCH] Small update to Perlin noise subroutine for proper style

---
 src/util/util_perlin_noise.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/util/util_perlin_noise.f90 b/src/util/util_perlin_noise.f90
index bc7b065c..b260d9a1 100644
--- a/src/util/util_perlin_noise.f90
+++ b/src/util/util_perlin_noise.f90
@@ -79,13 +79,13 @@ function util_perlin_noise(xx,yy,zz) result (noise)
    w = fade(z)
 
    A = p(xi) + yi
-   B = p(xi + 1) + yi
+   B = p(xi+1) + yi
 
    AA = p(A) + zi
    BA = p(B) + zi
 
-   AB = p(A + 1) + zi
-   BB = p(B + 1) + zi
+   AB = p(A+1) + zi
+   BB = p(B+1) + zi
    
    noise = lerp(w,   lerp(v,  lerp(u,  grad(p(AA  ), x  , y,   z),&
                                        grad(p(BA  ), x-1, y,   z)),&