← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/MPI/pssgets.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/pssgets.f
69
69
c\Routines called:
70
70
c     ssortr  ARPACK utility sorting routine.
71
71
c     pivout  Parallel ARPACK utility routine that prints integers.
72
 
c     second  ARPACK utility routine for timing.
 
72
c     arscnd  ARPACK utility routine for timing.
73
73
c     psvout  Parallel ARPACK utility routine that prints vectors.
74
74
c     scopy   Level 1 BLAS that copies one vector to another.
75
75
c     sswap   Level 1 BLAS that swaps the contents of two vectors.
145
145
c     | External Subroutines |
146
146
c     %----------------------%
147
147
c
148
 
      external   sswap, scopy, ssortr, second
 
148
      external   sswap, scopy, ssortr, arscnd
149
149
c
150
150
c     %---------------------%
151
151
c     | Intrinsic Functions |
162
162
c     | & message level for debugging |
163
163
c     %-------------------------------%
164
164
c
165
 
      call second (t0)
 
165
      call arscnd (t0)
166
166
      msglvl = msgets
167
167
c 
168
168
      if (which .eq. 'BE') then
212
212
         call scopy (np, ritz, 1, shifts, 1)
213
213
      end if
214
214
c 
215
 
      call second (t1)
 
215
      call arscnd (t1)
216
216
      tsgets = tsgets + (t1 - t0)
217
217
c
218
218
      if (msglvl .gt. 0) then