-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathR3dirs03.pas
30 lines (23 loc) · 1.38 KB
/
R3dirs03.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
(* Programid : RnMod3d *)
(* Versionid : Version 0.8 (Sep. 15, 1997 - July 18, 2000) *)
(* Description : Radon transport model - 3D time-dependent - finite volume *)
(* Programmer1 : Claus E. Andersen, Risoe National Laboratory *)
(* Programmer2 : DK-4000 Roskilde, Denmark. [email protected] *)
(* Copyright : Risoe National Laboratory, Denmark *)
(* Documentation : User's Guide to RnMod3d, Risoe-R-1201(EN) *)
(* Files : R3Defi03.pas = Global definitions *)
(* R3Main03.pas = Main program *)
(* R3Delp03.pas = Special Delphi 3.0 / Borland Pascal 7.0 code *)
(* R3Dirs03.pas = Compiler directives *)
(* R3Writ03.pas = Mainly procedures for writing text *)
{$DEFINE Delphi}
{$apptype console}
(**)
{$DEFINE imax100}
{$DEFINE jmax100}
{$DEFINE kmax200}
{$DEFINE do_not_check_maxtime_every_iteration}
{$N+} (* 80287 numerical processor *)
{$R-} (* Range checking *)
{$S+} (* Stack-overflow checking *)
{$F+}