From 126ba701dbfd2aafa60a4679ffeeacc2aeccdd12 Mon Sep 17 00:00:00 2001
From: Prabhakar Tiwari <tiwari.lko@gmail.com>
Date: Thu, 17 Aug 2023 20:20:52 +0530
Subject: [PATCH] Update wrapper.f90

initiate ierr=0
---
 src/wrapper.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/wrapper.f90 b/src/wrapper.f90
index c8fa124..b487337 100644
--- a/src/wrapper.f90
+++ b/src/wrapper.f90
@@ -162,6 +162,7 @@ program wrapper
   endif
   open( UNIT=42, file=slice_file, status='old', form='formatted' )
   Nfiles = 0
+  ierr=0
   do while (ierr == 0)
      Nfiles = Nfiles + 1
      read(42, *, iostat=IERR) ctmp