← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/BLACS/pdsaupd.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/pdsaupd.f
384
384
c     dstats    ARPACK routine that initializes timing and other statistics
385
385
c              variables.
386
386
c     pivout   Parallel ARPACK utility routine that prints integers.
387
 
c     second   ARPACK utility routine for timing.
 
387
c     arscnd   ARPACK utility routine for timing.
388
388
c     pdvout    Parallel ARPACK utility routine that prints vectors.
389
389
c     pdlamch   ScaLAPACK routine that determines machine constants.
390
390
c
472
472
c     | External Subroutines |
473
473
c     %----------------------%
474
474
c
475
 
      external   pdsaup2 , pdvout , pivout, second, dstats 
 
475
      external   pdsaup2 , pdvout , pivout, arscnd, dstats 
476
476
c
477
477
c     %--------------------%
478
478
c     | External Functions |
494
494
c        %-------------------------------%
495
495
c
496
496
         call dstats 
497
 
         call second (t0)
 
497
         call arscnd (t0)
498
498
         msglvl = msaupd
499
499
c
500
500
         ierr   = 0
654
654
     &               '_saupd: corresponding error bounds')
655
655
      end if 
656
656
c
657
 
      call second (t1)
 
657
      call arscnd (t1)
658
658
      tsaupd = t1 - t0
659
659
c 
660
660
      if (msglvl .gt. 0) then