Fixed uninitialized error flag bug

MintonGroup · Aug 20, 2021 · a08a341 · a08a341
1 parent e31cda2
commit a08a341
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/io/io.f90 b/src/io/io.f90
@@ -905,6 +905,7 @@ module subroutine io_read_in_cb(self, param)
             read(iu, *, err = 667, iomsg = errmsg) self%Ip(1), self%Ip(2), self%Ip(3)
             read(iu, *, err = 667, iomsg = errmsg) self%rot(1), self%rot(2), self%rot(3)
          end if
+         ierr = 0
       else
          open(unit = iu, file = param%incbfile, status = 'old', form = 'UNFORMATTED', err = 667, iomsg = errmsg)
          ierr = self%read_frame(iu, param)