← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/MPI/pdnaupd.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/pdnaupd.f
382
382
c     pdnaup2   Parallel ARPACK routine that implements the Implicitly Restarted
383
383
c              Arnoldi Iteration.
384
384
c     pivout   Parallel ARPACK utility routine that prints integers.
385
 
c     second   ARPACK utility routine for timing.
 
385
c     arscnd   ARPACK utility routine for timing.
386
386
c     pdvout    Parallel ARPACK utility routine that prints vectors.
387
387
c     pdlamch   ScaLAPACK routine that determines machine constants.
388
388
c
468
468
c     | External Subroutines |
469
469
c     %----------------------%
470
470
c
471
 
      external   pdnaup2 , pdvout , pivout, second, dstatn 
 
471
      external   pdnaup2 , pdvout , pivout, arscnd, dstatn 
472
472
c
473
473
c     %--------------------%
474
474
c     | External Functions |
490
490
c        %-------------------------------%
491
491
c
492
492
         call dstatn 
493
 
         call second (t0)
 
493
         call arscnd (t0)
494
494
         msglvl = mnaupd
495
495
c
496
496
c        %----------------%
654
654
     &               '_naupd: Associated Ritz estimates')
655
655
      end if
656
656
c
657
 
      call second (t1)
 
657
      call arscnd (t1)
658
658
      tnaupd = t1 - t0
659
659
c
660
660
      if (msglvl .gt. 0) then