You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
242 lines
14 KiB
Modula-2
242 lines
14 KiB
Modula-2
GFORTRAN module created from mvnprodcorrprb.f on Thu Dec 04 12:55:42 2008
|
|
MD5:2001ac092337caac013ba2fcb5e647f3 -- If you edit this, you'll get what you deserve.
|
|
|
|
(() () () () () () () () () () () ()
|
|
() () () () () () () () () () () () () () ())
|
|
|
|
()
|
|
|
|
(('adaptivesimpson' 'integration1dmodule' 2 3) ('d1mach'
|
|
'integration1dmodule' 4) ('adaptivetrapz' 'integration1dmodule' 5 6) (
|
|
'romberg' 'integration1dmodule' 7 8) ('dea' 'integration1dmodule' 9))
|
|
|
|
()
|
|
|
|
()
|
|
|
|
(10 'adaptiveintwithbreaks' 'integration1dmodule' 'adaptiveintwithbreaks'
|
|
1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE
|
|
ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 11 0 (12 13 14 15 16 17 18
|
|
19 20) () 0 () () 0 0)
|
|
21 'adaptivesimpson1' 'integration1dmodule' 'adaptivesimpson1' 1 ((
|
|
PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0
|
|
0 0 UNKNOWN ()) 22 0 (23 24 25 26 27 28 29) () 0 () () 0 0)
|
|
3 'adaptivesimpson2' 'integration1dmodule' 'adaptivesimpson2' 1 ((
|
|
PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0
|
|
0 0 UNKNOWN ()) 30 0 (31 32 33 34 35 36 37) () 0 () () 0 0)
|
|
38 'adaptivesimpson3' 'integration1dmodule' 'adaptivesimpson3' 1 ((
|
|
PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0
|
|
0 0 UNKNOWN ()) 39 0 (40 41 42 43 44 45 46) () 0 () () 0 0)
|
|
2 'adaptivesimpsonwithbreaks' 'integration1dmodule'
|
|
'adaptivesimpsonwithbreaks' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
|
|
DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 47 0
|
|
(48 49 50 51 52 53 54 55 56) () 0 () () 0 0)
|
|
6 'adaptivetrapz1' 'integration1dmodule' 'adaptivetrapz1' 1 ((PROCEDURE
|
|
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0
|
|
UNKNOWN ()) 57 0 (58 59 60 61 62 63 64) () 0 () () 0 0)
|
|
5 'adaptivetrapzwithbreaks' 'integration1dmodule'
|
|
'adaptivetrapzwithbreaks' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
|
|
UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 65 0 (66
|
|
67 68 69 70 71 72 73 74) () 0 () () 0 0)
|
|
4 'd1mach' 'integration1dmodule' 'd1mach' 1 ((PROCEDURE UNKNOWN-INTENT
|
|
MODULE-PROC DECL UNKNOWN FUNCTION GENERIC) (REAL 8 0 0 REAL ()) 75 0 (
|
|
76) () 4 () () 0 0)
|
|
9 'dea' 'integration1dmodule' 'dea' 1 ((PROCEDURE UNKNOWN-INTENT
|
|
MODULE-PROC DECL UNKNOWN SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ())
|
|
77 0 (78 79 80 81 82 83 84) () 0 () () 0 0)
|
|
85 'dea3' 'integration1dmodule' 'dea3' 1 ((PROCEDURE UNKNOWN-INTENT
|
|
MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 86 0 (
|
|
87 88 89 90 91) () 0 () () 0 0)
|
|
92 'integration1dmodule' 'integration1dmodule' 'integration1dmodule' 1 (
|
|
(MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0
|
|
UNKNOWN ()) 0 0 () () 0 () () 0 0)
|
|
8 'romberg1' 'integration1dmodule' 'romberg1' 1 ((PROCEDURE
|
|
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0
|
|
UNKNOWN ()) 93 0 (94 95 96 97 98 99 100 101) () 0 () () 0 0)
|
|
7 'rombergwithbreaks' 'integration1dmodule' 'rombergwithbreaks' 1 ((
|
|
PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE
|
|
ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 102 0 (103 104 105 106 107
|
|
108 109 110 111) () 0 () () 0 0)
|
|
78 'newflg' '' 'newflg' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () 0 0)
|
|
79 'svalue' '' 'svalue' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
80 'limexp' '' 'limexp' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
81 'result' '' 'result' 77 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
82 'abserr' '' 'abserr' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
87 'e0' '' 'e0' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
88 'e1' '' 'e1' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
83 'epstab' '' 'epstab' 77 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SIZE (CONSTANT (
|
|
INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () 0 0)
|
|
84 'ierr' '' 'ierr' 77 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
89 'e2' '' 'e2' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
90 'abserr' '' 'abserr' 86 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
91 'result' '' 'result' 86 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
17 'epsi' '' 'epsi' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
18 'iflg' '' 'iflg' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
19 'abserr' '' 'abserr' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
20 'val' '' 'val' 11 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
48 'f' '' 'f' 47 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
EXTERNAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
49 'a' '' 'a' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
50 'b' '' 'b' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
51 'n' '' 'n' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
31 'f' '' 'f' 30 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN
|
|
EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 31 () () 0 0)
|
|
32 'a' '' 'a' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
33 'b' '' 'b' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
34 'epsi' '' 'epsi' 30 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
13 'a' '' 'a' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
14 'b' '' 'b' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
15 'n' '' 'n' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
16 'brks' '' 'brks' 11 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
|
|
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () 0 0)
|
|
58 'f' '' 'f' 57 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN
|
|
EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 58 () () 0 0)
|
|
59 'a' '' 'a' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
60 'b' '' 'b' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
35 'iflg' '' 'iflg' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
36 'abserr' '' 'abserr' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
37 'val' '' 'val' 30 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
40 'f' '' 'f' 39 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN
|
|
EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 40 () () 0 0)
|
|
52 'brks' '' 'brks' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
|
|
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () 0 0)
|
|
53 'epsi' '' 'epsi' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
54 'iflg' '' 'iflg' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
55 'abserr' '' 'abserr' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
56 'val' '' 'val' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
23 'f' '' 'f' 22 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN
|
|
EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 23 () () 0 0)
|
|
41 'a' '' 'a' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
42 'b' '' 'b' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
43 'epsi' '' 'epsi' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
44 'iflg' '' 'iflg' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
24 'a' '' 'a' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
25 'b' '' 'b' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
26 'epsi' '' 'epsi' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
27 'iflg' '' 'iflg' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
28 'abserr' '' 'abserr' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
29 'val' '' 'val' 22 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
66 'f' '' 'f' 65 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
EXTERNAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
76 'i' '' 'i' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
12 'f' '' 'f' 11 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
EXTERNAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
45 'abserr' '' 'abserr' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
46 'val' '' 'val' 39 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
72 'iflg' '' 'iflg' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
73 'abserr' '' 'abserr' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
74 'val' '' 'val' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
71 'epsi' '' 'epsi' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
67 'a' '' 'a' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
68 'b' '' 'b' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
69 'n' '' 'n' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
70 'brks' '' 'brks' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
|
|
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () 0 0)
|
|
61 'epsi' '' 'epsi' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
62 'iflg' '' 'iflg' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
63 'abserr' '' 'abserr' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
64 'val' '' 'val' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
103 'f' '' 'f' 102 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
|
|
UNKNOWN EXTERNAL DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
104 'a' '' 'a' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
105 'b' '' 'b' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
106 'n' '' 'n' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
107 'brks' '' 'brks' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
|
|
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () 0 0)
|
|
108 'epsi' '' 'epsi' 102 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
109 'iflg' '' 'iflg' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
110 'abserr' '' 'abserr' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
111 'val' '' 'val' 102 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
94 'f' '' 'f' 93 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC UNKNOWN UNKNOWN
|
|
EXTERNAL DUMMY FUNCTION) (REAL 8 0 0 REAL ()) 0 0 () () 94 () () 0 0)
|
|
95 'a' '' 'a' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
96 'b' '' 'b' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
|
|
REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
97 'decdigs' '' 'decdigs' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
98 'abseps' '' 'abseps' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
99 'errflg' '' 'errflg' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
|
|
100 'abserr' '' 'abserr' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
|
|
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
101 'val' '' 'val' 93 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY)
|
|
(REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
|
|
)
|
|
|
|
('adaptiveintwithbreaks' 0 10 'adaptivesimpson1' 0 21 'adaptivesimpson2'
|
|
0 3 'adaptivesimpson3' 0 38 'adaptivesimpsonwithbreaks' 0 2
|
|
'adaptivetrapz1' 0 6 'adaptivetrapzwithbreaks' 0 5 'd1mach' 0 4 'dea' 0
|
|
9 'dea3' 0 85 'integration1dmodule' 0 92 'romberg1' 0 8
|
|
'rombergwithbreaks' 0 7)
|