Skip to content

Commit

Permalink
Fixed the sign on denominator.
Browse files Browse the repository at this point in the history
  • Loading branch information
@iamthad
iamthad committed Nov 23, 2012
1 parent be6fe35 commit 731265f
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion FortranProject/poisson.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -69,7 +69,7 @@ program poisson
dx_neg2 = (real(m)-1)**2
dy_neg2 = (real(n)-1)**2
! Precompute the denominator of the entire function
denom = -2*(dx_neg2+dy_neg2)
denom = 2*(dx_neg2+dy_neg2)

! Do the iteration
do k=1, max_iter
Expand Down

0 comments on commit 731265f

Please sign in to comment.