← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/BLACS/pcnaupd.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/pcnaupd.f
359
359
c     cstatn   ARPACK routine that initializes the timing variables.
360
360
c     pivout   Parallel ARPACK utility routine that prints integers.
361
361
c     pcvout   Parallel ARPACK utility routine that prints vectors.
362
 
c     second   ARPACK utility routine for timing.
 
362
c     arscnd   ARPACK utility routine for timing.
363
363
c     pslamch  ScaLAPACK routine that determines machine constants.
364
364
c
365
365
c\Author
446
446
c     | External Subroutines |
447
447
c     %----------------------%
448
448
c
449
 
      external   pcnaup2, pcvout, pivout, second, cstatn
 
449
      external   pcnaup2, pcvout, pivout, arscnd, cstatn
450
450
c
451
451
c     %--------------------%
452
452
c     | External Functions |
468
468
c        %-------------------------------%
469
469
c
470
470
         call cstatn
471
 
         call second (t0)
 
471
         call arscnd (t0)
472
472
         msglvl = mcaupd
473
473
c
474
474
c        %----------------%
628
628
     &               '_naupd: Associated Ritz estimates')
629
629
      end if
630
630
c
631
 
      call second (t1)
 
631
      call arscnd (t1)
632
632
      tcaupd = t1 - t0
633
633
c
634
634
      if (msglvl .gt. 0) then