← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/MPI/psngets.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/psngets.f
149
149
c     | External Subroutines |
150
150
c     %----------------------%
151
151
c
152
 
      external   scopy, ssortc, second
 
152
      external   scopy, ssortc, arscnd
153
153
c
154
154
c     %----------------------%
155
155
c     | Intrinsics Functions |
166
166
c     | & message level for debugging |
167
167
c     %-------------------------------%
168
168
c 
169
 
      call second (t0)
 
169
      call arscnd (t0)
170
170
      msglvl = mngets
171
171
c 
172
172
c     %----------------------------------------------------%
222
222
         call ssortc ( 'SR', .true., np, bounds, ritzr, ritzi )
223
223
      end if
224
224
c     
225
 
      call second (t1)
 
225
      call arscnd (t1)
226
226
      tngets = tngets + (t1 - t0)
227
227
c
228
228
      if (msglvl .gt. 0) then