← Back to branch summary

~ubuntu-branches/ubuntu/raring/scilab/raring-proposed

« back to all changes in this revision

Viewing changes to modules/statistics/src/dcdflib/dzror.f

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2012-08-30 14:42:38 UTC
  • mfrom: (1.4.7)
  • Revision ID: package-import@ubuntu.com-20120830144238-c1y2og7dbm7m9nig
Tags: 5.4.0-beta-3-1~exp1
* New upstream release
* Update the scirenderer dep
* Get ride of libjhdf5-java dependency

Show diffs side-by-side

added added

removed removed

Lines of Context:
modules/statistics/src/dcdflib/dzror.f
80
80
      INTRINSIC abs,max,sign
81
81
C     ..
82
82
C     .. Statement Functions ..
83
 
      DOUBLE PRECISION ftol
 
83
      DOUBLE PRECISION ftol,dlamch
84
84
C     ..
85
85
C     .. Statement Function definitions ..
86
86
      ftol(zx) = 0.5D0*max(abstol,reltol*abs(zx))
 
87
      eps = dlamch('e')
87
88
C     ..
88
89
C     .. Executable Statements ..
89
90
 
183
184
      b = b + w
184
185
      xlo = b
185
186
      x = xlo
 
187
      if (x.lt.eps) then
 
188
        x=0
 
189
        status = 0
 
190
        return
 
191
      endif
186
192
C     GET-FUNCTION-VALUE
187
193
c      ASSIGN 200 TO i99999
188
194
      i99999=3