From 7262d5bf22a3262c7eaec2a5785c587cc684dbcd Mon Sep 17 00:00:00 2001
From: Jan200101 <sentrycraft123@gmail.com>
Date: Sun, 30 May 2021 14:54:20 +0200
Subject: [PATCH] correctly fix invalid read from pvoc array

---
 np1.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/np1.c b/np1.c
index 5afc130..f4274bf 100644
--- a/np1.c
+++ b/np1.c
@@ -27,7 +27,7 @@ logical vbflag;
     const integer r50wal = 36852;
 
     /* System generated locals */
-    volatile integer ret_val, i__1, i__2;
+    integer ret_val, i__1, i__2;
 
     /* Local variables */
     integer i, j, adj;
@@ -55,7 +55,7 @@ logical vbflag;
     pv_1.p2 = 0;
 
     buzlnt = 20;
-    prplnt = 48;
+    prplnt = 45;
     dirlnt = 75;
 /* SPARSE, PAGE 8 */