mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-10 04:50:03 -04:00
14 lines
522 B
Plaintext
14 lines
522 B
Plaintext
$NetBSD: patch-af,v 1.1.1.1 2000/11/30 00:51:17 jtb Exp $
|
|
|
|
--- slsbt.f.orig Fri Nov 17 17:05:55 2000
|
|
+++ slsbt.f
|
|
@@ -3,7 +3,7 @@
|
|
integer iwm
|
|
integer lblox, lpb, lpc, mb, nb
|
|
double precision wm, x, tem
|
|
- dimension wm(1), iwm(1), x(1), tem(1)
|
|
+ dimension wm(*), iwm(*), x(1), tem(1)
|
|
c-----------------------------------------------------------------------
|
|
c this routine acts as an interface between the core integrator
|
|
c routine and the solbt routine for the solution of the linear system
|