File: RELATIVE:/../../../mfix.git/model/matrix_mod.f

1           MODULE matrix
2     
3     ! Definitions for sparse matrix
4     
5     ! East
6           INTEGER :: e
7           PARAMETER (e = 1)
8     
9     ! West
10           INTEGER :: w
11           PARAMETER (w =-1)
12     
13     ! North
14           INTEGER :: n
15           PARAMETER (n = 2)
16     
17     ! South
18           INTEGER :: s
19           PARAMETER (s =-2)
20     
21     ! Top
22           INTEGER :: t
23           PARAMETER (t = 3)
24     
25     ! Bottom
26           INTEGER :: b
27           PARAMETER (b =-3)
28     
29           END MODULE matrix
30