mirror of
https://git.FreeBSD.org/ports.git
synced 2025-02-08 12:01:56 +00:00
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
11 lines
381 B
Forth
11 lines
381 B
Forth
--- himenobmtxp_xl.f.orig Mon Aug 16 15:39:44 2004
|
|
+++ himenobmtxp_xl.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)
|