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
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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
|
subroutine msgs(n,ierr)
c ======================================================================
c Base de donnee des messages
c ======================================================================
c Copyright INRIA
include '../stack.h'
character ch*4,line*140
integer p,sadr
c
sadr(l)=(l/2)+1
c
c le message de numero n correspond a l'etiquette logique 100+n
c
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,130,
& 131,132,133,134,135,136,137,138,139,140,
& 141,142,143,144,145,146,147,148,149,150,
& 151,152,153,154,155,156,157,158,159,160,
& 161,162,163,164,165,166,167,168,169,170,
& 171,172,173,174,175,176,177,178,179,180,
& 181,182,183,184,185,186,187,188,189,190,
& 191,192,193,194,195,196,197,198,199,200,
& 201,202,203,204,205,206,207,208,209,210) n
call basout(io,wte,' Warning:')
call basout(io,wte,buf(1:lnblnk(buf)))
101 continue
call basout(io,wte,' Warning:')
call basout(io,wte,' Non convergence in the QZ algorithm.')
if(ierr.gt.0)then
write(buf(1:4),'(i4)') ierr
call basout(io,wte,' The top'//buf(1:4)//' x'//buf(1:4)//
+ ' blocks may not be in generalized Schur form.')
endif
goto 9999
102 continue
call basout(io,wte,' Warning:')
call basout(io,wte,' Non convergence in QR steps.')
if(ierr.gt.0)then
write(buf(1:4),'(i4)') ierr
call basout(io,wte,' The top'//buf(1:4)//' x'//buf(1:4)//
+ ' block may not be in Schur form.')
endif
goto 9999
103 continue
call basout(io,wte,' Warning:')
call basout(io,wte,' Non convergence in QR steps.')
if(ierr.gt.0)then
write(buf(1:4),'(i4)') ierr
call basout(io,wte,' The first '//buf(1:4)//
+ ' singular values may be incorrect.')
endif
goto 9999
104 continue
call basout(io,wte,' Warning: Result may be inaccurate')
goto 9999
c----------------------------------------------------------------------
c---------------------- message de matlu et matnew---------------------
105 continue
call basout(io,wte,' warning')
call basout(io,wte,
$ ' matrix is close to singular or badly scaled. rcond = '//
$ buf(1:13))
if(ierr.gt.0) then
call basout(io,wte,
+ 'computing least squares solution. (see lsq)')
endif
goto 9999
106 continue
call basout(io,wte,' Warning.')
call basout(io,wte,' eigenvectors are badly conditioned.')
call basout(io,wte,
+ ' results may be inaccurate. rcond ='//buf(1:13))
goto 9999
107 continue
call basout(io,wte,' Warning: obsolete use of = instead of ==')
call showstack()
goto 9999
108 continue
call basout(io,wte,' Warning: obsolete use of eye rand or ones')
call showstack()
goto 9999
109 continue
write(buf(1:5),'(1pI5)') ierr
call basout(io, wte, 'rank defficient. rank = '//buf(1:5))
goto 9999
110 continue
goto 9999
c----------------------------------------------------------------------
c---------------------- message de matopt -----------------------------
111 continue
call basout(io,wte,' Quapro encounters cycles on degenerate'//
$ ' point')
goto 9999
112 continue
call basout(io,wte,' norm of projected gradient lower than '//
& buf(1:15))
goto 9999
113 continue
call basout(io,wte,
+ ' at last iteration f decreases by less than '//buf(1:15))
goto 9999
114 continue
call basout(io,wte,
& ' optimization stops because too small variations for x')
goto 9999
115 continue
call basout(io,wte,
& 'optim stops: maximum number of calls to f is reached')
goto 9999
116 continue
call basout(io,wte,
& 'optim stops: maximum number of iterations is reached')
goto 9999
117 continue
call basout(io,wte,
& 'optim stops: too small variations in gradient direction')
goto 9999
118 continue
call basout(io,wte,
& ' stop during calculation of descent direction')
goto 9999
119 continue
call basout(io,wte,
& ' stop during calculation of estimated hessian')
goto 9999
120 continue
call basout(io,wte,
& ' end of optimization')
goto 9999
121 continue
call basout(io,wte,
& ' end of optimization (linear search fails)')
goto 9999
c----------------------------------------------------------------------
c---------------------- message de -----------------------------
122 continue
call basout(io,wte,' sfact: uncomplete convergence relative'
$ //' precision reached : 10**('//buf(1:4)//')')
goto 9999
123 continue
call basout(ir,wte,' help file inconsistent...')
goto 9999
124 continue
call basout(io,wte,' Functions files location :'//buf(1:ierr))
goto 9999
125 continue
call basout(io,wte,' :'//buf(1:ierr))
goto 9999
126 continue
call basout(io,wte, ' pause mode: enter empty lines to continue.')
goto 9999
127 continue
call basout(io,wte,' breakpoints of function :'//
& buf(1:nlgh))
goto 9999
128 continue
call basout(ir,wte,buf(10:12)//' lines in help')
goto 9999
129 continue
call basout(ir,wte,' sorry, no help for '//buf(1:nlgh))
goto 9999
130 continue
call basout(io,wte,' warning: recursion problem..., cleared')
c call basout(io,wte,' will be cleared with next error...')
goto 9999
131 continue
call basout(io,wte,' warning: stack problem..., cleared')
c call basout(io,wte,' will be cleared with next error...')
c call error(-1)
goto 9999
132 continue
l=nlgh+1
1321 l=l-1
if(buf(l:l).eq.' ') goto 1321
call basout(io,wte,'Stop after row '//buf(nlgh+2:nlgh+6)
& //' in function '//buf(1:l)//' :')
goto 9999
133 continue
goto 9999
134 continue
call basout(io,ierr,'real part')
goto 9999
135 continue
call basout(io,ierr,'imaginary part')
goto 9999
136 continue
write(ch,'(i4)') ierr
call basout(io,wte,' maximum size of buffer : '
& //ch//' characters.')
goto 9999
137 continue
call basout(io,wte,
& ' rang deficient : rang ='//buf(1:4)//' - tol ='//buf(5:17))
goto 9999
c----------------------------------------------------------------------
c---------------------- message de comand -----------------------------
138 continue
call basout(io,wte,'your variables are...')
goto 9999
139 continue
call basout(io,wte,' using '//buf(1:10)//
& ' elements out of '//buf(11:20)//'.')
call basout(io,wte,' and '//buf(21:30)//
& ' variables out of '//buf(31:40))
goto 9999
140 continue
call basout(io,wte,'System functions:')
goto 9999
141 continue
call basout(io,wte,' Commands:')
goto 9999
142 continue
call cvname(ids(1,pt+1),line(1:nlgh),1)
call basout(io,wte,'Warning :redefining function: '
+ //line(1:nlgh))
p=pt+1
1421 p=p-1
if(p.eq.0) goto 9999
if(rstk(p).ne.502) goto 1421
k=lpt(1)-(13+nsiz)
c recherche du nom de la macro correspondant a ce niveau
lk=sadr(lin(k+6))
if(lk.le.lstk(top+1)) goto 9999
km=lin(k+5)-1
1422 km=km+1
if(km.gt.isiz)goto 9999
if(lstk(km).ne.lk) goto 1422
call cvname(idstk(1,km),line(1:nlgh),1)
call basout(io,wte,' inside function: '//line(1:nlgh))
goto 9999
143 continue
call basout(io,wte,
$ ' Not enough memory to perform simplification')
goto 9999
144 continue
call basout(io,wte,'your global variables are...')
goto 9999
145 continue
goto 9999
146 continue
goto 9999
147 continue
goto 9999
148 continue
goto 9999
149 continue
goto 9999
c----------------------------------------------------------------------
c---------------------- message for arl2 -----------------------------
150 continue
call basout(io,wte,'arl2: Loop on two orders detected')
call basout(io,wte,' previous order computed solution returned')
goto 9999
151 continue
call basout(io,wte,'arl2: Impossible to reach required order')
call basout(io,wte,' previous order computed solution returned')
goto 9999
152 continue
call basout(io,wte,'arl2: Failure when looking for the inters'//
& 'ection with domains boundaries')
call basout(io,wte,' previous order computed solution returned')
goto 9999
153 continue
call basout(io,wte,'arl2: Too many solutions found')
call basout(io,wte,' previous order computed solution returned')
goto 9999
154 continue
goto 9999
155 continue
goto 9999
156 continue
goto 9999
157 continue
goto 9999
158 continue
goto 9999
159 continue
goto 9999
160 continue
call basout(io,wte,
$ 'Warning : loaded file has been created with scilab-1')
call basout(io,wte,
$ ' or you are trying to load a file saved on ')
call basout(io,wte,
$ ' a different architecture')
call basout(io,wte,' please update it !')
161 continue
call cvname(ids(1,pt+1),line(1:nlgh),1)
call basout(io,wte,
$ 'Warning : Impossible to load variable '//line(1:nlgh))
goto 9999
162 continue
call basout(io,wte,
$ 'Warning : use of standard list to define typed structures')
call basout(io,wte,
$ ' is obsolete. Use tlist')
goto 9999
163 continue
call basout(io,wte ,'Warning :division by zero...')
goto 9999
164 continue
call basout(io,wte,'Warning :singularity of log or tan function')
goto 9999
165 continue
goto 9999
166 continue
goto 9999
167 continue
goto 9999
168 continue
goto 9999
169 continue
goto 9999
c----------------------------------------------------------------------
c---------------------- message for ODE -----------------------------
170 continue
call basout(io,wte,
& 'at time :'//buf(1:10)//
$ ',Too many iteration to achieve required precision')
goto 9999
171 continue
call basout(io,wte,'stepsize not significant in rkqc.')
goto 9999
172 continue
call basout(io,wte,' Warning: variable %ODEOPTIONS not found')
goto 9999
173 continue
call basout(io,wte,' Warning: integration up to tcrit')
goto 9999
174 continue
call basout(io,wte,' Warning: integration not completed! '//
$ 'check tolerance parameters or step size')
goto 9999
175 continue
call basout(io,wte,' Warning: Jacobian external is given, but ')
call basout(io,wte,' not used!, see %ODEOPTIONS(6)')
goto 9999
176 continue
call basout(io,wte,' Warning: No Jacobian external given but ')
call basout(io,wte,' one is required by %ODEOPTIONS(6) value!')
goto 9999
177 continue
call basout(io,wte,' itask=2,3 or 5: At most one value of t ')
call basout(io,wte,' is allowed, the last element of t is used')
goto 9999
178 continue
call basout(io,wte,' Warning: odedc forces itask=4 and handles')
call basout(io,wte,' tcrit')
goto 9999
179 continue
goto 9999
c ==============================================================
180 continue
call basout(io,wte,' Warning: function is already compiled')
goto 9999
c----------------------------------------------------------------------
c---------------------- message for intg int2d and int3d---------------
181 continue
call basout(io,wte
$ ,'int2d: termination for lack of space to divide triangle')
goto 9999
182 continue
call basout(io,wte,'int2d: termination because of roundoff noise')
goto 9999
183 continue
call basout(io,wte
$ ,'int2d: termination for relative error <5.0*%eps')
goto 9999
184 continue
call basout(io,wte
$ ,'int2d: termination: function evaluations > MEVALS')
goto 9999
185 continue
call basout(io,wte
$ ,'int3d:maxpts was too small to obtain the required accuracy'
$ )
goto 9999
186 continue
goto 9999
187 continue
goto 9999
188 continue
goto 9999
189 continue
goto 9999
c message for scicos
c
190 continue
call basout(io,wte
$ ,'Too many input/output ports for hilited block')
goto 9999
191 continue
call basout(io,wte
$ ,'Too many input/output entries for hilited block')
goto 9999
192 continue
goto 9999
193 continue
goto 9999
194 continue
goto 9999
195 continue
goto 9999
196 continue
goto 9999
197 continue
goto 9999
198 continue
goto 9999
199 continue
goto 9999
200 continue
call basout(io,wte,'Undefined display for this data type')
goto 9999
201 continue
call cvname(ids(1,pt+1),line(1:nlgh),1)
nl=lnblnk(line(1:nlgh))
call basout(io,wte,' Warning: primitive function '//line(1:nl)//
& ' has moved')
call basout(io,wte,' rebuild your function libraries')
c call showstack()
goto 9999
202 continue
call cvname(ids(1,pt+1),line(1:nlgh),1)
nl=lnblnk(line(1:nlgh))
call basout(io,wte,' Warning: primitive function '//line(1:nl)//
& ' is now a Scilab function')
call basout(io,wte,' rebuild your function libraries')
c call showstack()
goto 9999
203 continue
call basout(io,wte,' roundoff errors make leading eigenvalues ')
call basout(io,wte,
& ' in the Schur form no longer satisfy criterion')
goto 9999
204 continue
call basout(io,wte,' Formal variable name has been truncated')
goto 9999
205 continue
if(fin.eq.29) then
call basout(io,wte,'xget: unknown key <'//buf(1:ierr)//
& '> ignored')
else
call basout(io,wte,'xset: unknown key <'//buf(1:ierr)//
& '> ignored')
endif
goto 9999
206 continue
call basout(io,wte
$ ,'xset: window dimensions have been set less than 2^16')
goto 9999
207 continue
call basout(io,wte
$ ,'Some data have not been computed they are replaced by NaN')
goto 9999
208 continue
goto 9999
209 continue
goto 9999
210 continue
goto 9999
c
c
9999 continue
call basout(io,wte,' ')
return
end
|
