From c77b2fb22e4ca116eb254cded7872075460017dd Mon Sep 17 00:00:00 2001
From: RyanDavies19 <ryandavies2019@gmail.com>
Date: Tue, 17 Oct 2023 12:55:08 -0600
Subject: [PATCH] Adjust loop indexing

---
 modules/moordyn/src/MoorDyn.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/moordyn/src/MoorDyn.f90 b/modules/moordyn/src/MoorDyn.f90
index a8e5bad50f..e58f5f2949 100644
--- a/modules/moordyn/src/MoorDyn.f90
+++ b/modules/moordyn/src/MoorDyn.f90
@@ -2166,8 +2166,8 @@ SUBROUTINE MD_Init(InitInp, u, p, x, xd, z, other, y, m, DTcoupling, InitOut, Er
                ! check for non-convergence
                
                DO l = 1, p%nLines   
-                  DO K = 1,9
-                     IF ( abs( FairTensIC(l,1)/FairTensIC(l,K+1) - 1.0 ) > InputFileDat%threshIC ) THEN
+                  DO K = 2,10
+                     IF ( abs( FairTensIC(l,1)/FairTensIC(l,K) - 1.0 ) > InputFileDat%threshIC ) THEN
                         Converged = 0
                         EXIT
                      END IF