← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/BLACS/psnapps.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:
PARPACK/SRC/BLACS/psnapps.f
198
198
c     %----------------------%
199
199
c
200
200
      external   saxpy, scopy, sscal, slacpy, slarf, slarfg, slartg, 
201
 
     &           slaset, slabad, second, pivout, psvout, psmout
 
201
     &           slaset, slabad, arscnd, pivout, psvout, psmout
202
202
c
203
203
c     %--------------------%
204
204
c     | External Functions |
246
246
c     | & message level for debugging |
247
247
c     %-------------------------------%
248
248
c
249
 
      call second (t0)
 
249
      call arscnd (t0)
250
250
      msglvl = mnapps
251
251
c 
252
252
      kplusp = kev + np 
645
645
      end if
646
646
c 
647
647
 9000 continue
648
 
      call second (t1)
 
648
      call arscnd (t1)
649
649
      tnapps = tnapps + (t1 - t0)
650
650
c 
651
651
      return