From d14c872bbdeb4ded3d9dc4a78e979b7a14817141 Mon Sep 17 00:00:00 2001 From: "U-DESKTOP-CPU04V4\\vic" Date: Sat, 30 May 2026 09:43:36 +1200 Subject: [PATCH] =?UTF-8?q?Removed=20Unicode=20=C3=9C=20from=20GPFORCE's?= =?UTF-8?q?=20INERTIA=20label=20and=20warning?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90 | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90 b/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90 index 19e6077e..bed3ca68 100644 --- a/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90 +++ b/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90 @@ -76,9 +76,6 @@ SUBROUTINE GP_FORCE_BALANCE_PROC ( JVEC, IHEADER ) INTEGER(LONG) :: ROW_NUM_START ! DOF number where TDOF data begins for a grid INTEGER(LONG) :: TDOF_ROW ! Row no. in array TDOF to find GDOF DOF number - - INTEGER(SHORT), DIMENSION(1) :: Udd = (/0220/) ! 0220 is the 4 digit ASCII code for a capital U double-dot - REAL(DOUBLE) :: DUM_KE(MELDOF,MELDOF) REAL(DOUBLE) :: FG1(6) ! The 6 vals from FG_COL (grid inertia forces) for 1 grid point REAL(DOUBLE) :: PG1(6) ! The 6 vals from PG_COL (grid applied loads) for 1 grid point @@ -769,7 +766,7 @@ SUBROUTINE GP_FORCE_BALANCE_PROC ( JVEC, IHEADER ) 9206 FORMAT(1X, 'MPC FORCE ',6(1ES14.6)) - 9207 FORMAT(1X, 'INERTIA FORCE (-Mgg*Üg)',6(1ES14.6)) + 9207 FORMAT(1X, 'INERTIA FORCE ',6(1ES14.6)) 9208 FORMAT(1X, 'SUBSTRUCTURE I/F FORCE ',6(1ES14.6)) @@ -782,7 +779,7 @@ SUBROUTINE GP_FORCE_BALANCE_PROC ( JVEC, IHEADER ) 9310 FORMAT(1X, 'TOTALS :',6(1ES14.6),13X,/, & 1X, '(may not be zero since there were OMIT''d DOF''s which can mean that the correct inertia forces at the G-set', & - ' are not -Mgg*Üg)',//) + ' are not -Mgg*a*g)',//) 9799 FORMAT(1X,A)