← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/BLACS/psnaup2.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/psnaup2.f
145
145
c     psngets  Parallel ARPACK reorder Ritz values and error bounds routine.
146
146
c     ssortc   ARPACK sorting routine.
147
147
c     pivout   Parallel ARPACK utility routine that prints integers.
148
 
c     second   ARPACK utility routine for timing.
 
148
c     arscnd   ARPACK utility routine for timing.
149
149
c     psmout   Parallel ARPACK utility routine that prints matrices
150
150
c     psvout   ARPACK utility routine that prints vectors.
151
151
c     pslamch  ScaLAPACK routine that determines machine constants.
252
252
c
253
253
      external   scopy, psgetv0, psnaitr, snconv, 
254
254
     &           psneigh, psngets, psnapps,
255
 
     &           psvout, pivout, second
 
255
     &           psvout, pivout, arscnd
256
256
c
257
257
c     %--------------------%
258
258
c     | External Functions |
274
274
c
275
275
      if (ido .eq. 0) then
276
276
c 
277
 
         call second (t0)
 
277
         call arscnd (t0)
278
278
c 
279
279
         msglvl = mnaup2
280
280
c 
776
776
c        %---------------------------------------------%
777
777
c
778
778
         cnorm = .true.
779
 
         call second (t2)
 
779
         call arscnd (t2)
780
780
         if (bmat .eq. 'G') then
781
781
            nbx = nbx + 1
782
782
            call scopy (n, resid, 1, workd(n+1), 1)
801
801
c        %----------------------------------%
802
802
c
803
803
         if (bmat .eq. 'G') then
804
 
            call second (t3)
 
804
            call arscnd (t3)
805
805
            tmvbx = tmvbx + (t3 - t2)
806
806
         endif
807
807
c
841
841
c     | Error Exit |
842
842
c     %------------%
843
843
c
844
 
      call second (t1)
 
844
      call arscnd (t1)
845
845
      tnaup2 = t1 - t0
846
846
c     
847
847
 9000 continue