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 */