From a08a341c26553b2779174c568259de76ee460dbe Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 20 Aug 2021 11:30:20 -0400 Subject: [PATCH] Fixed uninitialized error flag bug --- src/io/io.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/io/io.f90 b/src/io/io.f90 index 67d4665ab..2fdc0efa9 100644 --- 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)