← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/BLACS/pzneigh.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/pzneigh.f
68
68
c
69
69
c\Routines called:
70
70
c     pivout  Parallel ARPACK utility routine that prints integers.
71
 
c     second  ARPACK utility routine for timing.
 
71
c     arscnd  ARPACK utility routine for timing.
72
72
c     pzmout  Parallel ARPACK utility routine that prints matrices
73
73
c     pzvout  Parallel ARPACK utility routine that prints vectors.
74
74
c     pdvout  Parallel ARPACK utility routine that prints vectors.
168
168
c     %----------------------%
169
169
c
170
170
      external   zlacpy, zlahqr, zdscal, ztrevc, zcopy, 
171
 
     &           pzmout, pzvout, second
 
171
     &           pzmout, pzvout, arscnd
172
172
c
173
173
c     %--------------------%
174
174
c     | External Functions |
188
188
c     | & message level for debugging |
189
189
c     %-------------------------------%
190
190
c
191
 
      call second (t0)
 
191
      call arscnd (t0)
192
192
      msglvl = mceigh
193
193
c 
194
194
      if (msglvl .gt. 2) then
261
261
     &              '_neigh: Ritz estimates for the eigenvalues of H')
262
262
      end if
263
263
c
264
 
      call second(t1)
 
264
      call arscnd(t1)
265
265
      tceigh = tceigh + (t1 - t0)
266
266
c
267
267
 9000 continue