1
subroutine msgs(n,ierr)
2
c ======================================================================
3
c Base de donnee des messages
4
c ======================================================================
7
character ch*4,line*140
12
c le message de numero n correspond a l'etiquette logique 100+n
14
goto(101,102,103,104,105,106,107,108,109,110,
15
& 111,112,113,114,115,116,117,118,119,120,
16
& 121,122,123,124,125,126,127,128,129,130,
17
& 131,132,133,134,135,136,137,138,139,140,
18
& 141,142,143,144,145,146,147,148,149,150,
19
& 151,152,153,154,155,156,157,158,159,160,
20
& 161,162,163,164,165,166,167,168,169,170,
21
& 171,172,173,174,175,176,177,178,179,180,
22
& 181,182,183,184,185,186,187,188,189,190,
23
& 191,192,193,194,195,196,197,198,199,200,
24
& 201,202,203,204,205,206,207,208,209,210) n
26
call basout(io,wte,' Warning:')
27
call basout(io,wte,' Non convergence in the QZ algorithm.')
29
write(buf(1:4),'(i4)') ierr
30
call basout(io,wte,' The top'//buf(1:4)//' x'//buf(1:4)//
31
+ ' blocks may not be in generalized Schur form.')
35
call basout(io,wte,' Warning:')
36
call basout(io,wte,' Non convergence in QR steps.')
38
write(buf(1:4),'(i4)') ierr
39
call basout(io,wte,' The top'//buf(1:4)//' x'//buf(1:4)//
40
+ ' block may not be in Schur form.')
44
call basout(io,wte,' Warning:')
45
call basout(io,wte,' Non convergence in QR steps.')
47
write(buf(1:4),'(i4)') ierr
48
call basout(io,wte,' The first '//buf(1:4)//
49
+ ' singular values may be incorrect.')
53
call basout(io,wte,' Warning:')
54
call basout(io,wte,' Non convergence')
56
c----------------------------------------------------------------------
57
c---------------------- message de matlu et matnew---------------------
59
call basout(io,wte,' warning')
61
+ ' matrix is close to singular or badly scaled.')
63
+ ' results may be inaccurate. rcond ='//buf(1:13))
66
call basout(io,wte,' Warning.')
67
call basout(io,wte,' eigenvectors are badly conditioned.')
69
+ ' results may be inaccurate. rcond ='//buf(1:13))
71
c----------------------------------------------------------------------
72
c---------------------- message d'obsolescence -----------------------------
74
call basout(io,wte,' Warning: obsolete use of = instead of ==')
78
call basout(io,wte,' Warning: obsolete use of eye rand or ones')
85
c----------------------------------------------------------------------
86
c---------------------- message de matopt -----------------------------
88
call basout(io,wte,' Quapro encounters cycles on degenerate'//
92
call basout(io,wte,' norm of projected gradient lower than '//
97
+ ' at last iteration f decreases by less than '//buf(1:15))
101
& ' optimization stops because too small variations for x')
105
& 'optim stops: maximum number of calls to f is reached')
109
& 'optim stops: maximum number of iterations is reached')
113
& 'optim stops: too small variations in gradient direction')
117
& ' stop during calculation of descent direction')
121
& ' stop during calculation of estimated hessian')
125
& ' end of optimization')
129
& ' end of optimization (linear search fails)')
131
c----------------------------------------------------------------------
132
c---------------------- message de -----------------------------
134
call basout(io,wte,' sfact: uncomplete convergence relative'
135
$ //' precision reached : 10**('//buf(1:4)//')')
138
call basout(ir,wte,' help file inconsistent...')
141
call basout(io,wte,' Functions files location :'//buf(1:ierr))
144
call basout(io,wte,' :'//buf(1:ierr))
147
call basout(io,wte, ' pause mode: enter empty lines to continue.')
150
call basout(io,wte,' breakpoints of function :'//
154
call basout(ir,wte,buf(10:12)//' lines in help')
157
call basout(ir,wte,' sorry, no help for '//buf(1:nlgh))
160
call basout(io,wte,' warning: recursion problem..., cleared')
161
c call basout(io,wte,' will be cleared with next error...')
164
call basout(io,wte,' warning: stack problem..., cleared')
165
c call basout(io,wte,' will be cleared with next error...')
171
if(buf(l:l).eq.' ') goto 1321
172
call basout(io,wte,'Stop after row '//buf(nlgh+2:nlgh+6)
173
& //' in function '//buf(1:l)//' :')
178
call basout(io,ierr,'real part')
181
call basout(io,ierr,'imaginary part')
184
write(ch,'(i4)') ierr
185
call basout(io,wte,' maximum size of buffer : '
186
& //ch//' characters.')
190
& ' rang deficient : rang ='//buf(1:4)//' - tol ='//buf(5:17))
192
c----------------------------------------------------------------------
193
c---------------------- message de comand -----------------------------
195
call basout(io,wte,'your variables are...')
198
call basout(io,wte,' using '//buf(1:10)//
199
& ' elements out of '//buf(11:20)//'.')
200
call basout(io,wte,' and '//buf(21:30)//
201
& ' variables out of '//buf(31:40))
204
call basout(io,wte,'System functions:')
207
call basout(io,wte,' Commands:')
210
call cvname(ids(1,pt+1),line(1:nlgh),1)
211
call basout(io,wte,'Warning :redefining function: '
216
if(rstk(p).ne.502) goto 1421
218
c recherche du nom de la macro correspondant a ce niveau
220
if(lk.le.lstk(top+1)) goto 9999
223
if(km.gt.isiz)goto 9999
224
if(lstk(km).ne.lk) goto 1422
225
call cvname(idstk(1,km),line(1:nlgh),1)
226
call basout(io,wte,' inside function: '//line(1:nlgh))
230
$ ' Not enough memory to perform simplification')
233
call basout(io,wte,'your global variables are...')
245
c----------------------------------------------------------------------
246
c---------------------- message for arl2 -----------------------------
248
call basout(io,wte,'arl2: Loop on two orders detected')
249
call basout(io,wte,' previous order computed solution returned')
252
call basout(io,wte,'arl2: Impossible to reach required order')
253
call basout(io,wte,' previous order computed solution returned')
256
call basout(io,wte,'arl2: Failure when looking for the inters'//
257
& 'ection with domains boundaries')
258
call basout(io,wte,' previous order computed solution returned')
261
call basout(io,wte,'arl2: Too many solutions found')
262
call basout(io,wte,' previous order computed solution returned')
278
$ 'Warning : loaded file has been created with scilab-1')
280
$ ' or you are trying to load a file saved on ')
282
$ ' a different architecture')
283
call basout(io,wte,' please update it !')
285
call cvname(ids(1,pt+1),line(1:nlgh),1)
287
$ 'Warning : Impossible to load variable '//line(1:nlgh))
292
$ 'Warning : use of standard list to define typed structures')
294
$ ' is obsolete. Use tlist')
297
call basout(io,wte ,'Warning :division by zero...')
300
call basout(io,wte,'Warning :singularity of log or tan function')
312
c----------------------------------------------------------------------
313
c---------------------- message for ODE -----------------------------
316
& 'at time :'//buf(1:10)//
317
$ ',Too many iteration to achieve required precision')
320
call basout(io,wte,'stepsize not significant in rkqc.')
323
call basout(io,wte,' Warning: variable %ODEOPTIONS not found')
326
call basout(io,wte,' Warning: integration up to tcrit')
329
call basout(io,wte,' Warning: integration not completed! '//
330
$ 'check tolerance parameters or step size')
333
call basout(io,wte,' Warning: Jacobian external is given, but ')
334
call basout(io,wte,' not used!, see %ODEOPTIONS(6)')
337
call basout(io,wte,' Warning: No Jacobian external given but ')
338
call basout(io,wte,' one is required by %ODEOPTIONS(6) value!')
341
call basout(io,wte,' itask=2,3 or 5: At most one value of t ')
342
call basout(io,wte,' is allowed, the last element of t is used')
345
call basout(io,wte,' Warning: odedc forces itask=4 and handles')
346
call basout(io,wte,' tcrit')
350
c ==============================================================
352
call basout(io,wte,' Warning: function is already compiled')
354
c----------------------------------------------------------------------
355
c---------------------- message for intg int2d and int3d---------------
358
$ ,'int2d: termination for lack of space to divide triangle')
361
call basout(io,wte,'int2d: termination because of roundoff noise')
365
$ ,'int2d: termination for relative error <5.0*%eps')
369
$ ,'int2d: termination: function evaluations > MEVALS')
373
$ ,'int3d:maxpts was too small to obtain the required accuracy'
388
$ ,'Too many input/output ports for hilited block')
392
$ ,'Too many input/output entries for hilited block')
411
call basout(io,wte,'Undefined display for this data type')
437
call basout(io,wte,' ')
added
removed
routines/system/msgs.f
