← Back to branch summary

~ubuntu-branches/debian/sid/arpack/sid

« back to all changes in this revision

Viewing changes to SRC/dsaup2.f

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2013-11-13 09:56:18 UTC
  • mfrom: (1.3.3)
  • Revision ID: package-import@ubuntu.com-20131113095618-xoq2ckxy41bk7ilb
Tags: 3.1.4-1
New upstream release

Show diffs side-by-side

added added

removed removed

Lines of Context:
SRC/dsaup2.f
549
549
               nevd2 = nev0 / 2
550
550
               nevm2 = nev0 - nevd2 
551
551
               if ( nev .gt. 1 ) then
 
552
                  np = kplusp - nev0
552
553
                  call dswap ( min(nevd2,np), ritz(nevm2+1), 1,
553
554
     &                 ritz( max(kplusp-nevd2+1,kplusp-np+1) ), 1)
554
555
                  call dswap ( min(nevd2,np), bounds(nevm2+1), 1,