aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/f02.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/f02.spad.pamphlet')
-rw-r--r--src/algebra/f02.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/f02.spad.pamphlet b/src/algebra/f02.spad.pamphlet
index 81f1df5e..3a9be77d 100644
--- a/src/algebra/f02.spad.pamphlet
+++ b/src/algebra/f02.spad.pamphlet
@@ -489,7 +489,7 @@ NagEigenPackage(): Exports == Implementation where
zero? ncolbArg and not wantqArg and not wantpArg => 2*tem
zero? ncolbArg and wantpArg and not wantqArg => 3*tem
not wantpArg =>
- ncolbArg >0 or wantqArg => 3*tem
+ positive? ncolbArg or wantqArg => 3*tem
5*tem
cLen : Integer :=
mArg >= nArg =>