← Back to branch summary

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

« back to all changes in this revision

Viewing changes to PARPACK/SRC/MPI/pdnapps.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/pdnapps.f
102
102
c\Routines called:
103
103
c     dlabad  LAPACK routine that computes machine constants.
104
104
c     dlacpy  LAPACK matrix copy routine.
105
 
c     pdlamch ScaLAPACK routine that determines machine constants.
 
105
c     pdlamch10 ScaLAPACK routine that determines machine constants.
106
106
c     dlanhs  LAPACK routine that computes various norms of a matrix.
107
107
c     dlapy2  LAPACK routine to compute sqrt(x**2+y**2) carefully.
108
108
c     dlarf   LAPACK routine that applies Householder reflection to
205
205
c     %--------------------%
206
206
c
207
207
      Double precision
208
 
     &           pdlamch, dlanhs, dlapy2
209
 
      external   pdlamch, dlanhs, dlapy2
 
208
     &           pdlamch10, dlanhs, dlapy2
 
209
      external   pdlamch10, dlanhs, dlapy2
210
210
c
211
211
c     %----------------------%
212
212
c     | Intrinsics Functions |
233
233
c        | REFERENCE: LAPACK subroutine dlahqr           |
234
234
c        %-----------------------------------------------%
235
235
c
236
 
         unfl = pdlamch( comm, 'safe minimum' )
 
236
         unfl = pdlamch10( comm, 'safe minimum' )
237
237
         ovfl = one / unfl
238
238
         call dlabad( unfl, ovfl )
239
 
         ulp = pdlamch( comm, 'precision' )
 
239
         ulp = pdlamch10( comm, 'precision' )
240
240
         smlnum = unfl*( n / ulp )
241
241
         first = .false.
242
242
      end if