← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/MPI/pdseigt.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/MPI/pdseigt.f
63
63
c     dstqrb  ARPACK routine that computes the eigenvalues and the
64
64
c             last components of the eigenvectors of a symmetric
65
65
c             and tridiagonal matrix.
66
 
c     second  ARPACK utility routine for timing.
 
66
c     arscnd  ARPACK utility routine for timing.
67
67
c     pdvout  Parallel ARPACK utility routine that prints vectors.
68
68
c     dcopy   Level 1 BLAS that copies one vector to another.
69
69
c     dscal   Level 1 BLAS that scales a vector.
141
141
c     | External Subroutines |
142
142
c     %----------------------%
143
143
c
144
 
      external   dcopy, dstqrb, pdvout, second
 
144
      external   dcopy, dstqrb, pdvout, arscnd
145
145
c
146
146
c     %---------------------%
147
147
c     | Intrinsic Functions |
158
158
c     | & message level for debugging |
159
159
c     %-------------------------------% 
160
160
c
161
 
      call second (t0)
 
161
      call arscnd (t0)
162
162
      msglvl = mseigt
163
163
c
164
164
      if (msglvl .gt. 0) then
190
190
         bounds(k) = rnorm*abs(bounds(k))
191
191
   30 continue
192
192
c 
193
 
      call second (t1)
 
193
      call arscnd (t1)
194
194
      tseigt = tseigt + (t1 - t0)
195
195
c
196
196
 9000 continue