GFORTRAN module created from n3object.f90 on Thu May 30 10:37:28 2013
If you edit this, you'll get what you deserve.

(() () () () () () () () () () () () () () () () () ()
() () ())

()

()

()

()

(2 'bit_size' '(intrinsic)' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN FUNCTION) (UNKNOWN 0 ()) 0 0 () () 2 () ())
3 'class_dispose' 'n3object' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL SUBROUTINE) (UNKNOWN 0 ()) 4 0 (5 6) () 0 () ())
7 'class_find' 'n3object' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 8 0 (9 10) () 0 () ())
11 'class_max' 'n3object' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '511') () 0 ()
())
12 'class_nbits' 'n3object' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '9') () 0 () ())
13 'class_shifter' 'n3object' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '22') () 0 ()
())
14 'id_mask' 'n3object' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '4194303') ()
0 () ())
15 'class_new' 'n3object' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 16 0 (17 18) () 0 () ())
19 'ishft' '(intrinsic)' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN FUNCTION) (UNKNOWN 0 ()) 0 0 () () 19 () ())
20 'id_shifter' 'n3object' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '0') () 0 () ())
21 'n3object' 'n3object' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN)
(UNKNOWN 0 ()) 0 0 () () 0 () ())
22 'not' '(intrinsic)' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
FUNCTION) (UNKNOWN 0 ()) 0 0 () () 22 () ())
23 'n3namelen' 'n3object' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '32') () 0 ()
())
24 'object_classpart' 'n3object' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 25 0 (26 27) () 0 () ())
28 'id_nbits' 'n3object' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '22') () 0 ()
())
29 'object_new' 'n3object' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 30 0 (31 32 33) () 0 () ())
34 'object_idpart' 'n3object' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL SUBROUTINE) (UNKNOWN 0 ()) 35 0 (36 37) () 0 () ())
38 'object_id' 'n3object' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 39 0 (40 41 42) () 0 () ())
43 'class_mask' 'n3object' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '2143289344')
() 0 () ())
18 'klass' '' 16 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
10 'klass' '' 8 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
9 'classname' '' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER
1 (())) 0 0 () () 0 () ())
5 'klass' '' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
6 'stat' '' 4 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
31 'klass' '' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
32 'id' '' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0
0 () () 0 () ())
33 'handle' '' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4
()) 0 0 () () 0 () ())
17 'classname' '' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (
CHARACTER 1 (())) 0 0 () () 0 () ())
27 'klass' '' 25 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
36 'handle' '' 35 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
37 'id' '' 35 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
40 'handle' '' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
41 'klass' '' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
42 'id' '' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
26 'handle' '' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ())
0 0 () () 0 () ())
)

('class_mask' 0 43 'class_find' 0 7 'class_dispose' 0 3 'bit_size' 0 2
'object_id' 0 38 'id_nbits' 0 28 'class_new' 0 15 'class_nbits' 0 12
'class_max' 0 11 'class_shifter' 0 13 'id_mask' 0 14 'n3namelen' 0 23
'id_shifter' 0 20 'ishft' 0 19 'not' 0 22 'n3object' 0 21
'object_classpart' 0 24 'object_idpart' 0 34 'object_new' 0 29)