blob: 8a9d7be28fba891e03fb7a9e60befc8f0caa13b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
$NetBSD: patch-af,v 1.3 2001/01/23 20:55:44 jtb Exp $
--- cost.f.orig Fri Nov 17 16:48:23 2000
+++ cost.f
@@ -1,5 +1,5 @@
SUBROUTINE COST (N,X,WSAVE)
- DIMENSION X(1) ,WSAVE(1)
+ DIMENSION X(*) ,WSAVE(1)
NM1 = N-1
NP1 = N+1
NS2 = N/2
|
