← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/BLACS/pdsapps.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/pdsapps.f
93
93
c
94
94
c\Routines called:
95
95
c     pivout  Parallel ARPACK utility routine that prints integers. 
96
 
c     second  ARPACK utility routine for timing.
 
96
c     arscnd  ARPACK utility routine for timing.
97
97
c     pdvout  Parallel ARPACK utility routine that prints vectors.
98
98
c     pdlamch ScaLAPACK routine that determines machine constants.
99
99
c     dlartg  LAPACK Givens rotation construction routine.
187
187
c     %----------------------%
188
188
c
189
189
      external   daxpy, dcopy, dscal, dlacpy, dlartg, dlaset, pdvout, 
190
 
     &           pivout, second, dgemv
 
190
     &           pivout, arscnd, dgemv
191
191
c
192
192
c     %--------------------%
193
193
c     | External Functions |
224
224
c     | & message level for debugging |
225
225
c     %-------------------------------%
226
226
c
227
 
      call second (t0)
 
227
      call arscnd (t0)
228
228
      msglvl = msapps
229
229
c 
230
230
      kplusp = kev + np 
514
514
         end if
515
515
      end if
516
516
c
517
 
      call second (t1)
 
517
      call arscnd (t1)
518
518
      tsapps = tsapps + (t1 - t0)
519
519
c 
520
520
 9000 continue