← Back to branch summary

~ubuntu-branches/ubuntu/vivid/atlas/vivid

« back to all changes in this revision

Viewing changes to interfaces/blas/F77/testing/zblat3.f

  • Committer: Package Import Robot
  • Author(s): Sébastien Villemot
  • Date: 2013-06-11 15:58:16 UTC
  • mfrom: (1.1.3 upstream)
  • mto: (2.2.21 experimental)
  • mto: This revision was merged to the branch mainline in revision 26.
  • Revision ID: package-import@ubuntu.com-20130611155816-b72z8f621tuhbzn0
Tags: upstream-3.10.1
Import upstream version 3.10.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
interfaces/blas/F77/testing/zblat3.f
80
80
      LOGICAL            LTEST( NSUBS )
81
81
      CHARACTER*6        SNAMES( NSUBS )
82
82
*     .. External Functions ..
83
 
      DOUBLE PRECISION   DDIFF
 
83
      DOUBLE PRECISION   DDIFF, dlamch
84
84
      LOGICAL            LZE
85
 
      EXTERNAL           DDIFF, LZE
 
85
      EXTERNAL           DDIFF, LZE, dlamch
86
86
*     .. External Subroutines ..
87
87
      EXTERNAL           ZCHK1, ZCHK2, ZCHK3, ZCHK4, ZCHK5, ZCHKE, ZMMCH
88
88
*     .. Intrinsic Functions ..
190
190
*
191
191
*     Compute EPS (the machine precision).
192
192
*
193
 
      EPS = RONE
194
 
   70 CONTINUE
195
 
      IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
196
 
     $   GO TO 80
197
 
      EPS = RHALF*EPS
198
 
      GO TO 70
199
 
   80 CONTINUE
200
 
      EPS = EPS + EPS
 
193
*      EPS = RONE
 
194
*   70 CONTINUE
 
195
*      IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
 
196
*     $   GO TO 80
 
197
*      EPS = RHALF*EPS
 
198
*      GO TO 70
 
199
*   80 CONTINUE
 
200
*      EPS = EPS + EPS
 
201
      eps = dlamch('e')
201
202
      WRITE( NOUT, FMT = 9998 )EPS
202
203
*
203
204
*     Check the reliability of ZMMCH using exact data.