Repository navigation
Expand file tree
/
Copy pathfoul_iif.mod
More file actions
60 lines (52 loc) · 2.83 KB
/
Copy pathfoul_iif.mod
File metadata and controls
60 lines (52 loc) · 2.83 KB
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
GFORTRAN module version '10' created from /users/id583/scratch/src/ddpt/sourcecode/foul.f90
MD5:f6d588a5690cc09eeb7aaba4e277ce44 -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () () ()
() () ())
()
(('iif' 'foul_iif' 2 3 4))
()
()
()
(5 'foul_iif' 'foul_iif' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0
0)
4 'iif_integer' 'foul_iif' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (INTEGER 4 0 0 0 INTEGER ()) 6
0 (7 8 9) () 4 () () () 0 0)
3 'iif_real' 'foul_iif' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (REAL 8 0 0 0 REAL ()) 10 0 (11 12
13) () 3 () () () 0 0)
2 'iif_string' 'foul_iif' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (CHARACTER 1 0 0 0 CHARACTER (
(FUNCTION (INTEGER 4 0 0 0 INTEGER ()) 0 14 (('' (FUNCTION (INTEGER 4 0
0 0 INTEGER ()) 0 15 (('' (VARIABLE (CHARACTER 1 0 0 0 CHARACTER (())) 0
16 ())) ('' ())) '__len_1_i4' 0 'len')) ('' (FUNCTION (INTEGER 4 0 0 0
INTEGER ()) 0 15 (('' (VARIABLE (CHARACTER 1 0 0 0 CHARACTER (())) 0 17
())) ('' ())) '__len_1_i4' 0 'len'))) '__max_i4' 0 'max'))) 18 0 (19 16
17) () 2 () () () 0 0)
7 'expression' '' '' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
8 'true_value' '' '' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
9 'false_value' '' '' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
11 'expression' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
12 'true_value' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
13 'false_value' '' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
14 'max' '(intrinsic)' '' 18 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0 FUNCTION) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 14
() () () 0 0)
15 'len' '(intrinsic)' '' 18 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0 FUNCTION) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 15
() () () 0 0)
16 'true_value' '' '' 18 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (CHARACTER 1 0 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
17 'false_value' '' '' 18 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (CHARACTER 1 0 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
19 'expression' '' '' 18 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DUMMY) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
)
('foul_iif' 0 5 'iif_integer' 0 4 'iif_real' 0 3 'iif_string' 0 2)