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