$SPAD/src/input f04qaf.input

The Axiom Team December 3, 2016

Abstract

Contents

2

1 License

— license —

--Copyright The Numerical Algorithms Group Limited 1994.

———-

— * —

\getchunk{license}
)cl all
showArrayValues true
showScalarValues true
n := 12
m := 13
h:SF := 0.1
b :Matrix SF:= -h**2 * [[0],[0],[0],[1],[1],[0],[0],[1],[1],[0],[0],[0],[-h**-3]]
a : Matrix MachineFloat:=
 [[1,0,0,-1,0,0,0,0,0,0,0,0],_
  [0,1,0,0,-1,0,0,0,0,0,0,0],_
  [0,0,1,-1,0,0,0,0,0,0,0,0],_
  [-1,0,-1,4,-1,0,0,-1,0,0,0,0],_
  [0,-1,0,-1,4,-1,0,0,-1,0,0,0],_
  [0,0,0,0,-1,1,0,0,0,0,0,0],_
  [0,0,0,0,0,0,1,-1,0,0,0,0],_
  [0,0,0,-1,0,0,-1,4,-1,0,-1,0],_
  [0,0,0,0,-1,0,0,-1,4,-1,0,-1],_
  [0,0,0,0,0,0,0,0,-1,1,0,0],_
  [0,0,0,0,0,0,0,-1,0,0,1,0],_
  [0,0,0,0,0,0,0,0,-1,0,0,1],_
  [1,1,1,0,0,1,1,0,0,1,1,1]]
damp := 0.0
atol := 1.0e-5
btol := 1.0e-4
conlim := 1/atol
itnlim := 100
msglvl := 1
liwork := 1
lrwork := 1
ifail :=1
result:=f04qaf(m,n,damp,atol,btol,conlim,itnlim,msglvl,lrwork,_
               liwork,b,ifail,a::ASP30(APROD))

———-

References^{[1] nothing}

4