Merge pull request #64 from MYSTRANsolver/gpforce_ans_bug

fixed segfault caused by closed ANS file
MYSTRANsolver · Apr 12, 2024 · 2275d20 · 2275d20
2 parents 3ed68ce + 1c8af40
commit 2275d20
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90 b/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90
@@ -812,10 +812,9 @@ SUBROUTINE GP_FORCE_BALANCE_PROC ( JVEC, IHEADER )
           IF (IERR /= 0) THEN
               WRITE(ERR,*) 'GPFORCE_FXYZ_MXYZ DEALLOCATE error'
           ENDIF
+          FLUSH(OP2)
       ENDIF
-      FLUSH(OP2)
       FLUSH(F06)
-      FLUSH(ANS)
       FLUSH(ERR)
 
 ! **********************************************************************************************************************************