istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

src/dierckx.f90: fix use of uninitialised var

Browse Source
This commit is contained in:
Michele Guerini Rocco 2024-01-29 16:00:17 +01:00
parent 7c5b443847
commit 3dcacf685c
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/dierckx.f90
View File

@ -2927,6 +2927,7 @@ contains
ier = 0 ier = 0
end if end if
! we partition the working space and determine the spline approximation ! we partition the working space and determine the spline approximation
wrk(1) = 0
lfpx = 5 lfpx = 5
lfpy = lfpx+nxest lfpy = lfpx+nxest
lww = lfpy+nyest lww = lfpy+nyest