a=a+b**2

natedill · Apr 13, 2018 · c65147c · c65147c
1 parent 66d9e8d
commit c65147c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/solver.F90 b/solver.F90
@@ -8,7 +8,7 @@ SUBROUTINE SOLVER(A,B)
                 INTEGER,INTENT(INOUT) :: A
                 INTEGER,INTENT(IN)    :: B
 
-                A = A + B
+                A = A + B*B
 
             END SUBROUTINE