← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/MPI/pdsapps.f

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2015-10-12 09:33:05 UTC
  • mfrom: (1.3.5)
  • Revision ID: package-import@ubuntu.com-20151012093305-w41sv3g9nzbaodfz
Tags: 3.3.0-1
* New upstream release
* Update of the homepage (moved to github)
* libparpack links against libarpack (instead of static build)
* Update the symbol files. No need to change of SONAME:
  - About the parpack change: https://github.com/opencollab/arpack-ng/pull/21
  - Transfer the call to the library:
    https://github.com/opencollab/arpack-ng/pull/19
* Standards-Version updated to version 3.9.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
PARPACK/SRC/MPI/pdsapps.f
95
95
c     pivout  Parallel ARPACK utility routine that prints integers. 
96
96
c     arscnd  ARPACK utility routine for timing.
97
97
c     pdvout  Parallel ARPACK utility routine that prints vectors.
98
 
c     pdlamch ScaLAPACK routine that determines machine constants.
 
98
c     pdlamch10 ScaLAPACK routine that determines machine constants.
99
99
c     dlartg  LAPACK Givens rotation construction routine.
100
100
c     dlacpy  LAPACK matrix copy routine.
101
101
c     dlaset  LAPACK matrix initialization routine.
194
194
c     %--------------------%
195
195
c
196
196
      Double precision
197
 
     &           pdlamch
198
 
      external   pdlamch
 
197
     &           pdlamch10
 
198
      external   pdlamch10
199
199
c
200
200
c     %----------------------%
201
201
c     | Intrinsics Functions |
214
214
c     %-----------------------%
215
215
c
216
216
      if (first) then
217
 
         epsmch = pdlamch(comm, 'Epsilon-Machine')
 
217
         epsmch = pdlamch10(comm, 'Epsilon-Machine')
218
218
         first = .false.
219
219
      end if
220
220
      itop = 1