← Back to branch summary

~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to routines/system/msgs.f

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
http://bugs.debian.org/255869
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/system/msgs.f
22
22
     &     181,182,183,184,185,186,187,188,189,190,
23
23
     &     191,192,193,194,195,196,197,198,199,200,
24
24
     &     201,202,203,204,205,206,207,208,209,210) n
 
25
      call basout(io,wte,' Warning:')
 
26
      call basout(io,wte,buf(1:lnblnk(buf)))
25
27
 101  continue
26
28
      call  basout(io,wte,' Warning:')
27
29
      call basout(io,wte,'  Non convergence in the QZ algorithm.')
58
60
 105  continue
59
61
      call basout(io,wte,' warning')
60
62
      call basout(io,wte,
61
 
     +     ' matrix is close to singular or badly scaled.')
62
 
      call basout(io,wte,
63
 
     +              ' results may be inaccurate. rcond ='//buf(1:13))
 
63
     $     ' matrix is close to singular or badly scaled. rcond = '//
 
64
     $     buf(1:13))
 
65
      if(ierr.gt.0) then
 
66
         call basout(io,wte,
 
67
     +        'computing least squares solution. (see lsq)')
 
68
      endif
64
69
      goto 9999
65
70
 106  continue
66
71
      call basout(io,wte,'  Warning.')
68
73
      call basout(io,wte,
69
74
     +     ' results may be inaccurate. rcond ='//buf(1:13))
70
75
      goto 9999
71
 
c----------------------------------------------------------------------
72
 
c---------------------- message d'obsolescence -----------------------------
73
76
 107  continue
74
77
      call basout(io,wte,' Warning: obsolete use of = instead of ==')
75
78
      call showstack()
79
82
      call showstack()
80
83
      goto 9999
81
84
 109  continue
 
85
      write(buf(1:5),'(1pI5)') ierr
 
86
      call basout(io, wte, 'rank defficient. rank = '//buf(1:5))
82
87
      goto 9999
83
88
 110  continue
84
89
      goto 9999
411
416
      call basout(io,wte,'Undefined display for this data type')
412
417
      goto 9999
413
418
 201  continue
 
419
      
 
420
      call cvname(ids(1,pt+1),line(1:nlgh),1)
 
421
      nl=lnblnk(line(1:nlgh))
 
422
      call basout(io,wte,' Warning: primitive function '//line(1:nl)//
 
423
     &    ' has moved')
 
424
      call basout(io,wte,' rebuild  your function libraries')
 
425
c      call showstack()
414
426
      goto 9999
415
427
 202  continue
 
428
      call cvname(ids(1,pt+1),line(1:nlgh),1)
 
429
      nl=lnblnk(line(1:nlgh))
 
430
      call basout(io,wte,' Warning: primitive function '//line(1:nl)//
 
431
     &    ' is now a Scilab function') 
 
432
      call basout(io,wte,' rebuild  your function libraries')
 
433
c      call showstack()
416
434
      goto 9999
417
435
 203  continue
 
436
      call basout(io,wte,' roundoff errors make leading eigenvalues ')
 
437
      call basout(io,wte,
 
438
     &     ' in the Schur form no longer satisfy criterion')
418
439
      goto 9999
419
440
 204  continue
 
441
      call basout(io,wte,' Formal variable name has been truncated')
420
442
      goto 9999
421
443
 205  continue
 
444
      if(fin.eq.29) then
 
445
         call basout(io,wte,'xget: unknown key <'//buf(1:ierr)//
 
446
     &        '> ignored')
 
447
      else
 
448
         call basout(io,wte,'xset: unknown key <'//buf(1:ierr)//
 
449
     &        '> ignored')
 
450
      endif
422
451
      goto 9999
423
452
 206  continue
 
453
      call basout(io,wte
 
454
     $     ,'xset: window dimensions have been set less than 2^16')
424
455
      goto 9999
425
456
 207  continue
426
457
      goto 9999