get rid of invalid UTF8 in SHEAR engineering forces in the ANS file

MYSTRANsolver · May 6, 2024 · 23f297e · 23f297e
1 parent 9268849
commit 23f297e
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/Source/LK9/L91/WRITE_ELEM_ENGR_FORCE.f90 b/Source/LK9/L91/WRITE_ELEM_ENGR_FORCE.f90
@@ -740,11 +740,11 @@ SUBROUTINE FWRITE_ANS ( WHICH )
 
  1412 FORMAT(A,40X,I8,3(1ES14.6))
 
- 1413 FORMAT(1X,A,'                                                ------------- ------------- -------------',/,                   &
-             1X,A,'                                        MAX* : ',3(ES14.6),/,                                                   &
-             1X,A,'                                        MIN* : ',3(ES14.6),//,                                                  &
-             1X,A,'                                        ABS* : ',3(ES14.6),/,                                                   &
-             1X,A,'                                        *for output set')
+ 1413 FORMAT(1X,'                                                ------------- ------------- -------------',/,                   &
+             1X,'                                        MAX* : ',3(ES14.6),/,                                                   &
+             1X,'                                        MIN* : ',3(ES14.6),//,                                                  &
+             1X,'                                        ABS* : ',3(ES14.6),/,                                                   &
+             1X,'                                        *for output set')
 
 ! SHELL >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  1511 FORMAT(2X,A,'Element        N o r m a l   F o r c e s                       M o m e n t s'                                   &