Commit a7f2fa75 authored by rtoy's avatar rtoy
Browse files

packages/fishpack.system:

o The SEPX4 test passes now; remove the comment.

packages/fishpack/ex/tstsepx4.f:
o The dummy variable DUM is really an array.  Make it so.
o Fix up the format statement to include commas before the i and e
  edit descriptors.  Without that, f2cl parses it incorrectly and
  causes an infinite loop trying to print out the results.
parent 9cca1a2b
......@@ -237,8 +237,6 @@
:components
((:file "tsthw3crt")))
;; Warning! This test doesn't pass! It seems to be in an infinite
;; loop trying to print out results, but just the text is printed.
(mk:defsystem tst-fishpack-sepx4
:source-pathname (merge-pathnames (make-pathname :directory '(:relative "fishpack" "ex"))
(make-pathname :directory (pathname-directory *load-pathname*)))
......
......@@ -44,6 +44,7 @@ c w(1).
c
dimension usol(33,33),grhs(33,33),bda(33) ,bdb(33) ,
1 w(1024)
real dum(1)
external cofx4
c
c define arithmetic functions giving exact solution
......@@ -155,9 +156,9 @@ c
420x,48hfourth order discretization error = 1.85749e-06 /
520x,33hrequired length of w array = 1024 //
620x, 32hthe output from your computer is //
720x, 8hierror = i2 /
820x,36hsecond order discretization error = e12.5 /
920x,36hfourth order discretization error = e12.5 /
920x,29hrequired length of w array = i5)
720x, 8hierror = ,i2 /
820x,36hsecond order discretization error = ,e12.5 /
920x,36hfourth order discretization error = ,e12.5 /
920x,29hrequired length of w array = ,i5)
c
end
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment