From 0ede4e2b671d3c277ded168b9875afe04028bf1b Mon Sep 17 00:00:00 2001
From: Wim Haeck <whaeck@gmail.com>
Date: Mon, 12 Aug 2024 09:01:38 -0600
Subject: [PATCH] because it needs to be gt

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

diff --git a/src/viewr.f90 b/src/viewr.f90
index c89c95b3..e2337b75 100644
--- a/src/viewr.f90
+++ b/src/viewr.f90
@@ -1323,7 +1323,7 @@ subroutine set3d(iplot,xyz,nxyz)
          enddo
          i=i+2+2*nn
          j=j+1
-         if (j.lt.length) then
+         if (j.gt.length) then
             call error('set3d','array overflow, increase the length parameter',' ')
          endif
       endif