diff --git a/Prec_Solve.f90 b/Prec_Solve.f90
index 1e12a09..70f90fd 100644
--- 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