src/dierckx.f90: fix use of uninitialised var

2024-01-29 16:00:17 +01:00 · 2024-01-29 16:00:17 +01:00 · 3dcacf685c
commit 3dcacf685c
parent 7c5b443847
1 changed files with 1 additions and 0 deletions
--- 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