diff options
Diffstat (limited to 'src/algebra/pleqn.spad.pamphlet')
| -rw-r--r-- | src/algebra/pleqn.spad.pamphlet | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/algebra/pleqn.spad.pamphlet b/src/algebra/pleqn.spad.pamphlet index fa296d65..96e29d30 100644 --- a/src/algebra/pleqn.spad.pamphlet +++ b/src/algebra/pleqn.spad.pamphlet @@ -412,10 +412,10 @@ ParametricLinearEquations(R,Var,Expon,GR): for y in pc repeat rec3:Rec3:= regime (y, coeff, w, psbf, rk, rkmax, mode) inconsistent? rec3.wcond => "incompatible system" - if filemode then write_!(rksoln, rec3) + if filemode then write!(rksoln, rec3) else lrec3:= cons(rec3, lrec3) count:=count+1 - if filemode then close_! rksoln + if filemode then close! rksoln [lrec3, count]$Ranksolns factorset y == @@ -566,9 +566,9 @@ ParametricLinearEquations(R,Var,Expon,GR): count:I:=0 -- number of distinct regimes -- rec3: Rec3 for rec3 in lrec3 repeat - write_!(rksoln, rec3) + write!(rksoln, rec3) count:=count+1 - close_!(rksoln) + close!(rksoln) count dmp2rfi (p:GR):GF == @@ -579,11 +579,11 @@ ParametricLinearEquations(R,Var,Expon,GR): infilename:=filename$FNAME ("",inname, "regime") infile: File Rec3:=open$(File Rec3) (infilename, "input") rksoln:L Rec3:=[] - rec3:Union(Rec3, "failed"):=readIfCan_!$(File Rec3) (infile) + rec3:Union(Rec3, "failed"):=readIfCan!$(File Rec3) (infile) while rec3 case Rec3 repeat rksoln:=cons(rec3::Rec3,rksoln) -- replace : to :: for AIX - rec3:=readIfCan_!$(File Rec3) (infile) - close_!(infile) + rec3:=readIfCan!$(File Rec3) (infile) + close!(infile) rksoln maxrank rcl == |