From c528b9af3d7b77de52ab7b3ad8d9fab3d1c53873 Mon Sep 17 00:00:00 2001
From: Carlisle Wishard <cwishard@purdue.edu>
Date: Wed, 29 Sep 2021 14:50:37 -0400
Subject: [PATCH] fixed indexing in netcdf_read_frame_base

---
 src/netcdf/netcdf.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90
index a197ac944..717fdd188 100644
--- a/src/netcdf/netcdf.f90
+++ b/src/netcdf/netcdf.f90
@@ -354,7 +354,7 @@ module function netcdf_read_frame_base(self, iu, param) result(ierr)
                n = count(tpmask(:) .and. validmask(:))
             end select
 
-            do i = j, n
+            do j = 1, n
                idslot = ind(j)
    
                if (param%in_form == XV) then