← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to routines/dcd/spmpar.f

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/dcd/spmpar.f
 
1
      DOUBLE PRECISION FUNCTION spmpar(i)
 
2
C-----------------------------------------------------------------------
 
3
C     SPMPAR PROVIDES THE SINGLE PRECISION MACHINE CONSTANTS FOR
 
4
C     THE COMPUTER BEING USED. IT IS ASSUMED THAT THE ARGUMENT
 
5
C     I IS AN INTEGER HAVING ONE OF THE VALUES 1, 2, OR 3. IF THE
 
6
C     SINGLE PRECISION ARITHMETIC BEING USED HAS M BASE B DIGITS AND
 
7
C     ITS SMALLEST AND LARGEST EXPONENTS ARE EMIN AND EMAX, THEN
 
8
C
 
9
C        SPMPAR(1) = B**(1 - M), THE MACHINE PRECISION,
 
10
C
 
11
C        SPMPAR(2) = B**(EMIN - 1), THE SMALLEST MAGNITUDE,
 
12
C
 
13
C        SPMPAR(3) = B**EMAX*(1 - B**(-M)), THE LARGEST MAGNITUDE.
 
14
C
 
15
C-----------------------------------------------------------------------
 
16
C     RWRITTEN BY JPC to use lapack dlamch 
 
17
C-----------------------------------------------------------------------
 
18
      DOUBLE PRECISION   DLAMCH
 
19
      EXTERNAL DLAMCH 
 
20
      goto (1,2,3) i 
 
21
      spmpar=0.0
 
22
      RETURN
 
23
 1    spmpar=dlamch('p')
 
24
      return
 
25
 2    spmpar=dlamch('u')
 
26
      return
 
27
 3    spmpar=dlamch('o')
 
28
      return
 
29
      END