Added end of file exception handling in the particle information file…

… reader
MintonGroup · Aug 19, 2021 · 061cbca · 061cbca
1 parent ecf6985
commit 061cbca
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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