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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
c this include file contains code relative to interfaces calling. We use
c include file instead of subroutine to avoid recursion pb's. This file
c must be included in each routine which compute an external
c
60 call parse
if(fun.eq.99) then
fun=0
goto 200
endif
if(err.gt.0) goto 9999
c
ir=rstk(pt)-900
goto(113,105,105,105,106,101),ir
c
if(top.lt.rhs ) then
call error(22)
goto 60
endif
if(top-rhs+lhs+1.ge.bot) then
call error(17)
goto 60
endif
c
90 if(err.gt.0) goto 9999
k=fun
fun=0
if(k.eq.krec) then
call error(22)
goto 9999
endif
goto(101,102,103,104,105,106,107,108,109,110,
& 111,112,113,114,115,116,117,118,119,120,
& 121,122,123,124,125,126,127,128,129) k
if(k.eq.0) goto 60
call userlk(k)
goto 90
c
101 call matlu
goto 90
102 il=iadr(lstk(top+1-rhs))
if(istk(il+3).ne.1) then
call matdsr
else
call matdsc
endif
goto 90
103 call matsvd
goto 90
104 call matqr
goto 90
105 call matio
goto 90
106 call matelm
goto 90
107 call matdes
goto 90
108 call matqz
goto 90
109 call matric
goto 90
110 call matnew
goto 90
111 call matopt
goto 90
112 call matode
goto 90
113 call matsys
goto 90
114 call matusr
goto 90
115 call metane
goto 90
116 call polelm
goto 90
117 call lstelm
goto 90
118 call sigelm
goto 90
119 call datatf
goto 90
120 call polaut
goto 90
121 call strelm
goto 90
122 call fmlelm
goto 90
123 call logelm
goto 90
124 call matus2
goto 90
125 call xawelm
goto 90
126 call matimp
goto 90
127 call spelm
goto 90
128 call intcos
goto 90
129 call matodc
goto 90
|
