← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/BLACS/pcnapps.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/pcnapps.f
96
96
c
97
97
c\Routines called:
98
98
c     pivout  Parallel ARPACK utility routine that prints integers.
99
 
c     second  ARPACK utility routine for timing.
 
99
c     arscnd  ARPACK utility routine for timing.
100
100
c     pcmout  Parallel ARPACK utility routine that prints matrices
101
101
c     pcvout  Parallel ARPACK utility routine that prints vectors.
102
102
c     clacpy  LAPACK matrix copy routine.
200
200
c     %----------------------%
201
201
c
202
202
      external   caxpy, ccopy, cgemv, cscal, clacpy, clartg, 
203
 
     &           pcvout, claset, slabad, pcmout, second, pivout
 
203
     &           pcvout, claset, slabad, pcmout, arscnd, pivout
204
204
c
205
205
c     %--------------------%
206
206
c     | External Functions |
256
256
c     | & message level for debugging |
257
257
c     %-------------------------------%
258
258
c
259
 
      call second (t0)
 
259
      call arscnd (t0)
260
260
      msglvl = mcapps
261
261
c 
262
262
      kplusp = kev + np 
511
511
      end if
512
512
c
513
513
 9000 continue
514
 
      call second (t1)
 
514
      call arscnd (t1)
515
515
      tcapps = tcapps + (t1 - t0)
516
516
c 
517
517
      return