b45a3f0758
for evaluation of performance of the calculation of incompressible flow analysis. This program solves Poisson equation by Jacobi's iterative method which have many loops
10 lines
379 B
Forth
10 lines
379 B
Forth
--- himenobmtxp_m.f.orig Mon Aug 16 15:39:44 2004
|
|
+++ himenobmtxp_m.f Mon Aug 16 15:39:54 2004
|
|
@@ -39,7 +39,6 @@
|
|
C "use portlib" statement on the next line is for Visual fortran
|
|
C to use UNIX libraries. Please remove it if your system is UNIX.
|
|
C -------------------
|
|
- use portlib
|
|
IMPLICIT REAL*4(a-h,o-z)
|
|
C
|
|
PARAMETER (mimax=513,mjmax=257,mkmax=257)
|