← Back to branch summary

~reducedmodelling/fluidity/ROM_Non-intrusive-ann

« back to all changes in this revision

Viewing changes to libmba2d/mba2d_module.mod

  • Committer: fangf at ac
  • Date: 2012-11-06 12:21:31 UTC
  • mto: This revision was merged to the branch mainline in revision 3989.
  • Revision ID: fangf@imperial.ac.uk-20121106122131-u2zvt7fxc1r3zeou
updated

Show diffs side-by-side

added added

removed removed

Lines of Context:
libmba2d/mba2d_module.mod
 
1
GFORTRAN module version '6' created from mba_nodal.f on Tue Oct  2 17:24:06 2012
 
2
MD5:f7affe8a1b5e507a0c6837a3c7b813e7 -- If you edit this, you'll get what you deserve.
 
3
 
 
4
(() () () () () () () () () () () () () () () () () () () () () () () ()
 
5
() () ())
 
6
 
 
7
()
 
8
 
 
9
()
 
10
 
 
11
()
 
12
 
 
13
()
 
14
 
 
15
()
 
16
 
 
17
(2 'mba2d_module' 'mba2d_module' 'mba2d_module' 1 ((MODULE
 
18
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN
 
19
()) 0 0 () () 0 () () () 0 0)
 
20
3 'mbanodal' 'mba2d_module' 'mbanodal' 1 ((PROCEDURE UNKNOWN-INTENT
 
21
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 4 0
 
22
(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
 
23
30 31 32 33 34 35 36 37) () 0 () () () 0 0)
 
24
5 'np' '' 'np' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
 
25
0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
26
6 'maxp' '' 'maxp' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
27
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
28
21 'nev' '' 'nev' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
29
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
30
22 'ifv' '' 'ifv' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
31
UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0
 
32
ASSUMED_SIZE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () ()
 
33
0 0)
 
34
23 'iev' '' 'iev' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
35
UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0
 
36
ASSUMED_SIZE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () ()
 
37
0 0)
 
38
24 'lbe' '' 'lbe' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
39
UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0
 
40
ASSUMED_SIZE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () ()
 
41
0 0)
 
42
25 'flagauto' '' 'flagauto' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
 
43
UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () ()
 
44
() 0 0)
 
45
26 'status' '' 'status' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
46
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
47
27 'maxskipe' '' 'maxskipe' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
 
48
UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () ()
 
49
() 0 0)
 
50
28 'maxqitr' '' 'maxqitr' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
 
51
UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () ()
 
52
() 0 0)
 
53
29 'metric' '' 'metric' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
54
UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0
 
55
ASSUMED_SIZE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (
 
56
INTEGER 4 0 0 INTEGER ()) 0 '3') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
 
57
'1') ()) 0 () () () 0 0)
 
58
30 'quality' '' 'quality' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
 
59
UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
 
60
31 'rquality' '' 'rquality' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
 
61
UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
 
62
32 'maxwr' '' 'maxwr' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
63
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
64
33 'maxwi' '' 'maxwi' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
65
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
66
34 'rw' '' 'rw' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
 
67
0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 ASSUMED_SIZE (
 
68
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
 
69
35 'iw' '' 'iw' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
 
70
0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SIZE
 
71
(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
 
72
36 'iprint' '' 'iprint' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
73
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
74
7 'nf' '' 'nf' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
 
75
0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
76
8 'maxf' '' 'maxf' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
77
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
78
9 'ne' '' 'ne' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
 
79
0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
80
10 'maxe' '' 'maxe' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
81
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
82
11 'npv' '' 'npv' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
83
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
84
12 'xyp' '' 'xyp' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
85
UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0
 
86
ASSUMED_SIZE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (
 
87
INTEGER 4 0 0 INTEGER ()) 0 '2') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
 
88
'1') ()) 0 () () () 0 0)
 
89
13 'ipf' '' 'ipf' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
90
UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 0
 
91
ASSUMED_SIZE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (
 
92
INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
 
93
'1') ()) 0 () () () 0 0)
 
94
14 'ipe' '' 'ipe' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
95
UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 0
 
96
ASSUMED_SIZE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (
 
97
INTEGER 4 0 0 INTEGER ()) 0 '3') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
 
98
'1') ()) 0 () () () 0 0)
 
99
15 'ipv' '' 'ipv' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
100
UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0
 
101
ASSUMED_SIZE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () ()
 
102
0 0)
 
103
16 'crvfunction' '' 'crvfunction' 4 ((PROCEDURE UNKNOWN-INTENT
 
104
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL DUMMY) (UNKNOWN 0 0 0 UNKNOWN
 
105
()) 0 0 () () 0 () () () 0 0)
 
106
17 'parcrv' '' 'parcrv' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
107
UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0
 
108
ASSUMED_SIZE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (
 
109
INTEGER 4 0 0 INTEGER ()) 0 '2') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
 
110
'1') ()) 0 () () () 0 0)
 
111
18 'ifnc' '' 'ifnc' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
112
UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0
 
113
ASSUMED_SIZE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () ()
 
114
0 0)
 
115
19 'nestar' '' 'nestar' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
116
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
117
20 'nfv' '' 'nfv' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
118
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
119
37 'ierr' '' 'ierr' 4 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
 
120
UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
 
121
)
 
122
 
 
123
('mba2d_module' 0 2 'mbanodal' 0 3)