1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
From: Stephen Sinclair <radarsat1@gmail.com>
Date: Fri, 14 Nov 2025 21:28:39 +0000
Subject: Fix syntax in DLSODKR-test.f
---
externals/netlib/odepack/test/DLSODKR-test.f | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/externals/netlib/odepack/test/DLSODKR-test.f b/externals/netlib/odepack/test/DLSODKR-test.f
index 4296398..6d95218 100644
--- a/externals/netlib/odepack/test/DLSODKR-test.f
+++ b/externals/netlib/odepack/test/DLSODKR-test.f
@@ -109,7 +109,7 @@ c Loop over output points, call DLSODKR, print sample solution values.
1 ' c2 (bot.left/middle/top rt.) =',3d12.3)
write(6,62)c2tot,jroot
62 format(' total c2 =',d15.6,
- 1 ' jroot =',i2' (1 = root found, 0 = no root)')
+ 1 ' jroot =',i2,' (1 = root found, 0 = no root)')
if (istate .lt. 0) then
write(6,65)istate
65 format('DLSODKR returned istate = ',i3)
|
