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