diff --git a/src/Solution/ConvergenceSummary.f90 b/src/Solution/ConvergenceSummary.f90 index 06e15c0c5e4..5e85ccc7aaf 100644 --- a/src/Solution/ConvergenceSummary.f90 +++ b/src/Solution/ConvergenceSummary.f90 @@ -104,9 +104,9 @@ subroutine set_defaults(this) this%itinner(i) = 0 do j = 1, this%convnmod this%convdvmax(j, i) = DZERO - this%convlocdv = 0 + this%convlocdv(j, i) = 0 this%convdrmax(j, i) = DZERO - this%convlocdr = 0 + this%convlocdr(j, i) = 0 end do end do