From fc2736307a92536089f45a92806289cf3ec43efa Mon Sep 17 00:00:00 2001
From: "U-DESKTOP-CPU04V4\\vic" <victorkemp@gmail.com>
Date: Sat, 30 May 2026 16:50:57 +1200
Subject: [PATCH] Fixed repeated TITLE for GPFORCE in F06 with multiple
 subcases

---
 Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90 b/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90
index 4e407647..b1064bbe 100644
--- a/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90
+++ b/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90
@@ -221,7 +221,7 @@ SUBROUTINE GP_FORCE_BALANCE_PROC ( JVEC, IHEADER )
 
          IF (WRITE_F06) THEN
             IF (TITLEI(1:)  /= ' ') THEN
-               WRITE(F06,9799) TITLE
+               WRITE(F06,9799) TITLEI
             ENDIF
 
             IF (SUBTITLEI(1:) /= ' ') THEN