Description | Uses | Classes, Interfaces, Objects and Records | Functions and Procedures | Types | Constants | Variables |
These procedures replace the WRITE statements in TriPack.for.
This file is in the public domain.
procedure ADJACENCY_SETS(var Fortran: Longint; var N: longint); stdcall; |
procedure NEIGHBORS(const Fortran: Longint); stdcall; |
procedure X_NODE(var Fortran: Longint); stdcall; |
procedure ADJACENCY(const Fortran: Longint; const Node, AdjacentNode: longint); stdcall; |
procedure Positions(var Fortran: Longint; var Node: longint; var X, Y: Real; var AdjacentNode: longint); stdcall; |
Procedure BlankLine(const Fortran: Longint); |
Procedure NewPage(const Fortran: Longint); |
procedure BOUNDARY_NODES(var Fortran: Longint; var NB, NA, NT: longint); stdcall; |
Procedure OUT_OF_RANGE_TRPRNT(const Fortran: Longint); |
procedure NULL_TRIANGLES(const Fortran: Longint; const NullTriangles: longint); stdcall; |
procedure INVALID_INPUT_PARAMETER(const Fortran: Longint; const N: longint; const Tol: Real); stdcall; |
procedure LESS_THAN_3_NEIGHBORS(const Fortran: Longint; const Node: longint); stdcall; |
procedure ENTRY_OUT_OF_RANGE(const Fortran: Longint; const INDX: longint); stdcall; |
procedure INCONSISTENT_PARAMETERS(const Fortran: Longint; const BoundaryNodes, Triangles, Arcs: longint); stdcall; |
procedure CIRCUMCIRCLE_TEST_FAILURE(const Fortran: Longint; const CIRCUMCIRCLES: longint); stdcall; |
procedure OUT_OF_RANGE_Demo1(const Fortran: Longint; const N: longint); stdcall; |
procedure ALL_NODES_ARE_COLLINEAR(const Fortran: Longint); stdcall; |
procedure ERROR_IN_REORDR(const Fortran: Longint); stdcall; |
procedure ERROR_IN_GETNP(const Fortran: Longint); stdcall; |
procedure ERROR_IN_EDGE(const Fortran: Longint; const IER: longint); stdcall; |
procedure ARCS_NOT_OPTIMAL(const Fortran: Longint; const I: longint); stdcall; |
procedure ERROR_IN_DELETE_INVALID_FLAG(const Fortran: Longint; const IER: longint); stdcall; |
procedure ERROR_IN_EDGE_TRIANGULATION(const Fortran: Longint; const IER: longint); stdcall; |
procedure ERROR_IN_DELETE_TRIANGULATION(const Fortran: Longint; const IER: longint); stdcall; |
procedure OUTPUT_FROM_BNODES(var Fortran: Longint; var NodeCount, TriangleCount, ArcCount: longint; var Area, Volume: Real); stdcall; |
procedure GRADG_TEST(var Fortran: Longint; var MaxError: Real); stdcall; |
procedure INTRC0_TEST(var Fortran: Longint; var MaxError: Real); stdcall; |
procedure GRADL_TEST(var Fortran: Longint; var MaxError: Real); stdcall; |
procedure UNIF_TEST(var Fortran: Longint; var MaxError: Real; var PointCount: longint); stdcall; |
procedure TRIPAK_SRFPAK_TEST(var Fortran: Longint; var Test: longint); stdcall; |
procedure EDGE_NOT_TESTED(const Fortran: Longint); stdcall; |
Procedure DELETE_NOT_TESTED(const Fortran: Longint); stdcall; |
Procedure TRIANGULATION_ERRORS(var Fortran: Longint); stdcall; |
procedure MAXIMUM_INTERPOLATION_ERROR(var Fortran: Longint; var IER: Real); stdcall; |
procedure ADJACENCY_SETS(var Fortran: Longint; var N: longint); stdcall; |
TRPRNT Messages 100 |
procedure NEIGHBORS(const Fortran: Longint); stdcall; |
101 |
procedure X_NODE(var Fortran: Longint); stdcall; |
102 |
procedure ADJACENCY(const Fortran: Longint; const Node, AdjacentNode: longint); stdcall; |
103 |
procedure Positions(var Fortran: Longint; var Node: longint; var X, Y: Real; var AdjacentNode: longint); stdcall; |
104 |
Procedure BlankLine(const Fortran: Longint); |
105 |
Procedure NewPage(const Fortran: Longint); |
106 |
procedure BOUNDARY_NODES(var Fortran: Longint; var NB, NA, NT: longint); stdcall; |
107 |
Procedure OUT_OF_RANGE_TRPRNT(const Fortran: Longint); |
108 |
procedure NULL_TRIANGLES(const Fortran: Longint; const NullTriangles: longint); stdcall; |
TRMTST Messages 100 |
procedure INVALID_INPUT_PARAMETER(const Fortran: Longint; const N: longint; const Tol: Real); stdcall; |
110 |
procedure LESS_THAN_3_NEIGHBORS(const Fortran: Longint; const Node: longint); stdcall; |
120 |
procedure ENTRY_OUT_OF_RANGE(const Fortran: Longint; const INDX: longint); stdcall; |
130 |
procedure INCONSISTENT_PARAMETERS(const Fortran: Longint; const BoundaryNodes, Triangles, Arcs: longint); stdcall; |
140 |
procedure CIRCUMCIRCLE_TEST_FAILURE(const Fortran: Longint; const CIRCUMCIRCLES: longint); stdcall; |
150 |
procedure OUT_OF_RANGE_Demo1(const Fortran: Longint; const N: longint); stdcall; |
Demo 1 messages TRIANGULATION ERROR MESSAGES 200 |
procedure ALL_NODES_ARE_COLLINEAR(const Fortran: Longint); stdcall; |
210 |
procedure ERROR_IN_REORDR(const Fortran: Longint); stdcall; |
220 |
procedure ERROR_IN_GETNP(const Fortran: Longint); stdcall; |
230 |
procedure ERROR_IN_EDGE(const Fortran: Longint; const IER: longint); stdcall; |
240 |
procedure ARCS_NOT_OPTIMAL(const Fortran: Longint; const I: longint); stdcall; |
250 |
procedure ERROR_IN_DELETE_INVALID_FLAG(const Fortran: Longint; const IER: longint); stdcall; |
260 |
procedure ERROR_IN_EDGE_TRIANGULATION(const Fortran: Longint; const IER: longint); stdcall; |
270 |
procedure ERROR_IN_DELETE_TRIANGULATION(const Fortran: Longint; const IER: longint); stdcall; |
procedure OUTPUT_FROM_BNODES(var Fortran: Longint; var NodeCount, TriangleCount, ArcCount: longint; var Area, Volume: Real); stdcall; |
INTERPOLATION TEST MESSAGES 300 |
procedure GRADG_TEST(var Fortran: Longint; var MaxError: Real); stdcall; |
310 |
procedure INTRC0_TEST(var Fortran: Longint; var MaxError: Real); stdcall; |
320 |
procedure GRADL_TEST(var Fortran: Longint; var MaxError: Real); stdcall; |
330 |
procedure UNIF_TEST(var Fortran: Longint; var MaxError: Real; var PointCount: longint); stdcall; |
340 |
procedure TRIPAK_SRFPAK_TEST(var Fortran: Longint; var Test: longint); stdcall; |
INFORMATIVE MESSAGES 400 |
procedure EDGE_NOT_TESTED(const Fortran: Longint); stdcall; |
410 |
Procedure DELETE_NOT_TESTED(const Fortran: Longint); stdcall; |
420 |
Procedure TRIANGULATION_ERRORS(var Fortran: Longint); stdcall; |
430 |
procedure MAXIMUM_INTERPOLATION_ERROR(var Fortran: Longint; var IER: Real); stdcall; |
Demo 2 messages |