---
name: "slamchtst"
section: "3lapack"
platform: "linux"
package: "liblapack-doc"
version: "3.2.1-8"
release: "Debian 6.0 (Squeeze)"
platforms: ["linux"]
url: "https://new.carta.tech/slamchtst"
---

# slamchtst(3lapack)

## NAME

## SYNOPSIS

- PROGRAM TEST2

  - REAL

  BASE, EMAX, EMIN, EPS, RMAX, RMIN, RND, SFMIN, T, PREC

- REAL

  SLAMCH

- EXTERNAL

  SLAMCH

- EPS

  \= SLAMCH( 'Epsilon' )

- SFMIN

  \= SLAMCH( 'Safe minimum' )

- BASE

  \= SLAMCH( 'Base' )

- PREC

  \= SLAMCH( 'Precision' )

- T

  \= SLAMCH( 'Number of digits in mantissa' )

- RND

  \= SLAMCH( 'Rounding mode' )

- EMIN

  \= SLAMCH( 'Minimum exponent' )

- RMIN

  \= SLAMCH( 'Underflow threshold' )

- EMAX

  \= SLAMCH( 'Largest exponent' )

- RMAX

  \= SLAMCH( 'Overflow threshold' )

- WRITE(

  6, \* )' Epsilon = ', EPS

- WRITE(

  6, \* )' Safe minimum = ', SFMIN

- WRITE(

  6, \* )' Base = ', BASE

- WRITE(

  6, \* )' Precision = ', PREC

- WRITE(

  6, \* )' Number of digits in mantissa = ', T

- WRITE(

  6, \* )' Rounding mode = ', RND

- WRITE(

  6, \* )' Minimum exponent = ', EMIN

- WRITE(

  6, \* )' Underflow threshold = ', RMIN

- WRITE(

  6, \* )' Largest exponent = ', EMAX

- WRITE(

  6, \* )' Overflow threshold = ', RMAX

- WRITE(

  6, \* )' Reciprocal of safe minimum = ', 1 / SFMIN

- END

  ## PURPOSE