~ubuntu-branches/ubuntu/raring/python-scipy/raring-proposed

« back to all changes in this revision

Viewing changes to Lib/interpolate/fitpack/fppasu.f

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2007-01-07 14:12:12 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20070107141212-mm0ebkh5b37hcpzn
* Remove build dependency on python-numpy-dev.
* python-scipy: Depend on python-numpy instead of python-numpy-dev.
* Package builds on other archs than i386. Closes: #402783.

Show diffs side-by-side

added added

removed removed

Lines of Context:
256
256
        ier = 0
257
257
c  adjust the parameter reducu or reducv according to the direction
258
258
c  in which the last added knots were located.
259
 
        if(lastdi) 150,170,160
 
259
        if (lastdi.lt.0) go to 150
 
260
        if (lastdi.eq.0) go to 170
 
261
        go to 160
260
262
 150    reducu = fpold-fp
261
263
        go to 170
262
264
 160    reducv = fpold-fp
276
278
        rn = nplusv
277
279
        if(reducv.gt.acc) npl1 = rn*fpms/reducv
278
280
        nplv = min0(nplusv*2,max0(npl1,nplusv/2,1))
279
 
 190    if(nplu-nplv) 210,200,230
 
281
 190    if (nplu.lt.nplv) go to 210
 
282
        if (nplu.eq.nplv) go to 200
 
283
        go to 230
280
284
 200    if(lastdi.lt.0) go to 230
281
285
 210    if(nu.eq.nue) go to 230
282
286
c  addition in the u-direction.