From 061cbcaf0c9a33ae712ee5183485dcd258415d97 Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Thu, 19 Aug 2021 09:25:10 -0400
Subject: [PATCH] Added end of file exception handling in the particle
 information file reader

---
 src/symba/symba_io.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/symba/symba_io.f90 b/src/symba/symba_io.f90
index 5ab525e23..06472aae9 100644
--- a/src/symba/symba_io.f90
+++ b/src/symba/symba_io.f90
@@ -276,7 +276,7 @@ module subroutine symba_io_read_particle(system, param)
                associate(npl => pl%nbody, ntp => tp%nbody)
                   do 
                      lmatch = .false.
-                     read(LUN, err = 667, iomsg = errmsg) id
+                     read(LUN, err = 667, iomsg = errmsg, end = 333) id
 
                      if (idx == cb%id) then
                         read(LUN, err = 667, iomsg = errmsg) cb%info
@@ -308,6 +308,7 @@ module subroutine symba_io_read_particle(system, param)
          end select
       end select
 
+      333 continue
       return
 
       667 continue