Small cosmetic change.

Niceno · Oct 20, 2017 · ef9b82e · ef9b82e
1 parent a72f6ad
commit ef9b82e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Prec_Solve.f90 b/Prec_Solve.f90
@@ -38,7 +38,7 @@ subroutine Prec_Solve(N, NB, A, D, x, b)
       k = A % col(j)                  
       sum1 = sum1 - A % val(j)*x(k)      
     end do
-    x(i) = sum1* D % val(D % dia(i))               ! BUG ?
+    x(i) = sum1 * D % val(D % dia(i))               ! BUG ?
   end do
 
   end subroutine Prec_Solve