← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/BLACS/pdneigh.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/pdneigh.f
67
67
c\Routines called:
68
68
c     dlaqrb  ARPACK routine to compute the real Schur form of an
69
69
c             upper Hessenberg matrix and last row of the Schur vectors.
70
 
c     second  ARPACK utility routine for timing.
 
70
c     arscnd  ARPACK utility routine for timing.
71
71
c     dmout   ARPACK utility routine that prints matrices
72
72
c     dvout   ARPACK utility routine that prints vectors.
73
73
c     dlacpy  LAPACK matrix copy routine.
157
157
c     | External Subroutines |
158
158
c     %----------------------%
159
159
c
160
 
      external   dcopy, dlacpy, dlaqrb, dtrevc, pdvout, second
 
160
      external   dcopy, dlacpy, dlaqrb, dtrevc, pdvout, arscnd
161
161
c
162
162
c     %--------------------%
163
163
c     | External Functions |
183
183
c     | & message level for debugging |
184
184
c     %-------------------------------%
185
185
c
186
 
      call second (t0)
 
186
      call arscnd (t0)
187
187
      msglvl = mneigh
188
188
c 
189
189
      if (msglvl .gt. 2) then
314
314
     &              '_neigh: Ritz estimates for the eigenvalues of H')
315
315
      end if
316
316
c
317
 
      call second (t1)
 
317
      call arscnd (t1)
318
318
      tneigh = tneigh + (t1 - t0)
319
319
c
320
320
 9000 continue