GFORTRAN module created from n3long.f90 on Thu May 30 10:37:28 2013 If you edit this, you'll get what you deserve. (() () (2 3 4) (5) (6) (7) () () () () () () (8 9) (10 11) (12) (13) (14) (15) () (16 17 18 19) ()) (('mod' '' 20)) (('dble' '(intrinsic)' 21) ('int' '' 22) ('hex' '' 23)) () () (24 'bit_size' '(intrinsic)' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN FUNCTION) (UNKNOWN 0 ()) 0 0 () () 24 () ()) 25 'expand8' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 26 0 (27 28) () 0 () ()) 29 'hi' 'n3long' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) ( INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '2') () 0 () ()) 30 'int4bits' 'n3long' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '32') () 0 () ()) 4 'long_add' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (DERIVED 31 ()) 32 0 (33 34) () 35 () ()) 31 'long' 'n3long' 1 ((DERIVED UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) ( UNKNOWN 0 ()) 0 0 () () 0 ((36 'i' (INTEGER 4 ()) (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '2')) 1 0 ())) PUBLIC ()) 37 'lo' 'n3long' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) ( INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '1') () 0 () ()) 38 'expand16' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 39 0 (40 41) () 0 () ()) 42 'long_by_muladd' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 43 0 (44 45 46 47) () 0 () ()) 48 'long_dfmt_hex' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 49 0 (50 51 52) () 0 () ()) 3 'long_add_int' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (DERIVED 31 ()) 53 0 (54 55) () 56 () ()) 9 'long_eq' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (LOGICAL 4 ()) 57 0 (58 59) () 60 () ()) 8 'long_eq_int' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (LOGICAL 4 ()) 61 0 (62 63) () 64 () ()) 17 'long_from_double' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 65 0 (66 67) () 0 () ()) 19 'long_from_int' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 68 0 (69 70) () 0 () ()) 7 'long_div' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (DERIVED 31 ()) 71 0 (72 73) () 74 () ()) 2 'long_add_double' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (DERIVED 31 ()) 75 0 (76 77) () 78 () ()) 23 'long_hex' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '16'))) 79 0 (80) () 81 () ()) 15 'long_le' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (LOGICAL 4 ()) 82 0 (83 84) () 85 () ()) 12 'long_gt' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (LOGICAL 4 ()) 86 0 (87 88) () 89 () ()) 6 'long_mul' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (DERIVED 31 ()) 90 0 (91 92) () 93 () ()) 20 'long_mod' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (DERIVED 31 ()) 94 0 (95 96) () 97 () ()) 11 'long_ne' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (LOGICAL 4 ()) 98 0 (99 100) () 101 () ()) 14 'long_lt' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (LOGICAL 4 ()) 102 0 (103 104) () 105 () ()) 106 'long_or' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 107 0 (108 109) () 0 () ()) 110 'long_shift' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 111 0 (112 113) () 0 () ()) 10 'long_ne_int' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (LOGICAL 4 ()) 114 0 (115 116) () 117 () ()) 13 'long_ge' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (LOGICAL 4 ()) 118 0 (119 120) () 121 () ()) 16 'long_to_double' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 122 0 (123 124) () 0 () ()) 18 'long_to_int' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 125 0 (126 127) () 0 () ()) 21 'long_to_double_func' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (REAL 8 ()) 128 0 (129) () 130 () ()) 131 'n3long' 'n3long' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) ( UNKNOWN 0 ()) 0 0 () () 0 () ()) 132 'unexpand8' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 133 0 (134 135) () 0 () ()) 136 'unexpand16' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 137 0 (138 139) () 0 () ()) 22 'long_to_int_func' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (INTEGER 4 ()) 140 0 (141) () 142 () ()) 5 'long_sub' 'n3long' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL FUNCTION) (DERIVED 31 ()) 143 0 (144 145) () 146 () ()) 40 'val' '' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 138 'xpand' '' 137 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DIMENSION DUMMY) ( INTEGER 4 ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') ( CONSTANT (INTEGER 4 ()) 0 '4')) 0 () ()) 41 'xpand' '' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DIMENSION DUMMY) ( INTEGER 4 ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') ( CONSTANT (INTEGER 4 ()) 0 '4')) 0 () ()) 139 'out' '' 137 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 28 'xpand' '' 26 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DIMENSION DUMMY) ( INTEGER 4 ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') ( CONSTANT (INTEGER 4 ()) 0 '8')) 0 () ()) 135 'out' '' 133 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 134 'xpand' '' 133 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DIMENSION DUMMY) ( INTEGER 4 ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') ( CONSTANT (INTEGER 4 ()) 0 '8')) 0 () ()) 45 'i' '' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 46 'j' '' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 47 'k' '' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 44 'x' '' 43 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 27 'val' '' 26 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 126 'lhs' '' 125 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 127 'rhs' '' 125 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 70 'rhs' '' 68 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 142 'result' '' 140 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (INTEGER 4 ()) 0 0 () () 0 () ()) 66 'lhs' '' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 129 'i' '' 128 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 124 'rhs' '' 122 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 123 'lhs' '' 122 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () 0 () ()) 130 'result' '' 128 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (REAL 8 ()) 0 0 () () 0 () ()) 67 'rhs' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () 0 () ()) 34 'rhs' '' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 54 'lhs' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 76 'lhs' '' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 56 'result' '' 53 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (DERIVED 31 ()) 0 0 () () 0 () ()) 55 'rhs' '' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 77 'rhs' '' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () 0 () ()) 35 'result' '' 32 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (DERIVED 31 ()) 0 0 () () 0 () ()) 33 'lhs' '' 32 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 78 'result' '' 75 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (DERIVED 31 ()) 0 0 () () 0 () ()) 146 'result' '' 143 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (DERIVED 31 ()) 0 0 () () 0 () ()) 91 'lhs' '' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 145 'rhs' '' 143 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 144 'lhs' '' 143 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 141 'i' '' 140 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 93 'result' '' 90 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (DERIVED 31 ()) 0 0 () () 0 () ()) 73 'rhs' '' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 72 'lhs' '' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 74 'result' '' 71 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (DERIVED 31 ()) 0 0 () () 0 () ()) 92 'rhs' '' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 96 'rhs' '' 94 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 95 'lhs' '' 94 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 97 'result' '' 94 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (DERIVED 31 ()) 0 0 () () 0 () ()) 112 'x' '' 111 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 113 'n' '' 111 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 109 'n' '' 107 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 108 'x' '' 107 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 60 'result' '' 57 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (LOGICAL 4 ()) 0 0 () () 0 () ()) 63 'rhs' '' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 59 'rhs' '' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 62 'lhs' '' 61 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 58 'lhs' '' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 115 'lhs' '' 114 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 101 'result' '' 98 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (LOGICAL 4 ()) 0 0 () () 0 () ()) 99 'lhs' '' 98 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 116 'rhs' '' 114 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 100 'rhs' '' 98 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 104 'rhs' '' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 117 'result' '' 114 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (LOGICAL 4 ()) 0 0 () () 0 () ()) 105 'result' '' 102 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (LOGICAL 4 ()) 0 0 () () 0 () ()) 83 'lhs' '' 82 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 85 'result' '' 82 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (LOGICAL 4 ()) 0 0 () () 0 () ()) 84 'rhs' '' 82 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 103 'lhs' '' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 87 'lhs' '' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 88 'rhs' '' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 89 'result' '' 86 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (LOGICAL 4 ()) 0 0 () () 0 () ()) 120 'rhs' '' 118 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 119 'lhs' '' 118 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 81 'result' '' 79 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '16'))) 0 0 () () 0 () ()) 80 'li' '' 79 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 50 'buf' '' 49 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 ( ())) 0 0 () () 0 () ()) 51 'x' '' 49 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) 52 'stat' '' 49 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 121 'result' '' 118 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (LOGICAL 4 ()) 0 0 () () 0 () ()) 64 'result' '' 61 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN RESULT) (LOGICAL 4 ()) 0 0 () () 0 () ()) 69 'lhs' '' 68 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (DERIVED 31 ()) 0 0 () () 0 () ()) ) ('long_sub' 0 5 'long_ge' 0 13 'long_add_double' 0 2 'expand16' 0 38 'bit_size' 0 24 'lo' 0 37 'hi' 0 29 'expand8' 0 25 'int4bits' 0 30 'long' 0 31 'long_add' 0 4 'long_div' 0 7 'long_add_int' 0 3 'long_dfmt_hex' 0 48 'long_by_muladd' 0 42 'long_from_int' 0 19 'long_from_double' 0 17 'long_eq_int' 0 8 'long_eq' 0 9 'long_ne_int' 0 10 'long_lt' 0 14 'long_gt' 0 12 'long_le' 0 15 'long_hex' 0 23 'long_ne' 0 11 'long_mod' 0 20 'long_mul' 0 6 'long_shift' 0 110 'long_or' 0 106 'long_to_int_func' 0 22 'long_to_double_func' 0 21 'long_to_double' 0 16 'long_to_int' 0 18 'unexpand16' 0 136 'n3long' 0 131 'unexpand8' 0 132)