From 3dcacf685c60e479cd86cff76c1c4bea3fe21800 Mon Sep 17 00:00:00 2001
From: Michele Guerini Rocco <m.guerinirocco2@campus.unimib.it>
Date: Mon, 29 Jan 2024 16:00:17 +0100
Subject: [PATCH] src/dierckx.f90: fix use of uninitialised var

---
 src/dierckx.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/dierckx.f90 b/src/dierckx.f90
index 8b6f5c0..4ee9771 100644
--- a/src/dierckx.f90
+++ b/src/dierckx.f90
@@ -2927,6 +2927,7 @@ contains
       ier = 0
     end if
 !  we partition the working space and determine the spline approximation
+    wrk(1) = 0
     lfpx = 5
     lfpy = lfpx+nxest
     lww = lfpy+nyest