tstiee.f

Go to the documentation of this file.

*> \brief \b TSTIEE
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at
*            http://www.netlib.org/lapack/explore-html/
*
*  Authors:
*  ========
*
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \ingroup auxOTHERauxiliary
*
*  =====================================================================
      PROGRAM tstiee
*
*  -- LAPACK test routine --
*     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
*
*     .. External Functions ..
      INTEGER            ilaenv
      EXTERNAL           ilaenv
*     ..
*     .. Local Scalars ..
      INTEGER            ieeeok
*     ..
*     .. Executable Statements ..
*
      WRITE( 6, fmt = * )
     $   'We are about to check whether infinity arithmetic'
      WRITE( 6, fmt = * )'can be trusted.  If this test hangs, set'
      WRITE( 6, fmt = * )
     $   'ILAENV = 0 for ISPEC = 11 in LAPACK/SRC/ilaenv.f'
*
      ieeeok = ilaenv( 11, 'ILAENV', 'N', 1, 2, 3, 4 )
      WRITE( 6, fmt = * )
*
      IF( ieeeok.EQ.0 ) THEN
         WRITE( 6, fmt = * )
     $      'Infinity arithmetic did not perform per the ieee spec'
      ELSE
         WRITE( 6, fmt = * )
     $      'Infinity arithmetic performed as per the ieee spec.'
         WRITE( 6, fmt = * )
     $      'However, this is not an exhaustive test and does not'
         WRITE( 6, fmt = * )
     $      'guarantee that infinity arithmetic meets the',
     $      ' ieee spec.'
      END IF
*
      WRITE( 6, fmt = * )
*     ILAENV( 10, ...) checks both infinity and NaN arithmetic
*     infinity has already been checked so checking NaN now
      WRITE( 6, fmt = * )
     $   'We are about to check whether NaN arithmetic'
      WRITE( 6, fmt = * )'can be trusted.  If this test hangs, set'
      WRITE( 6, fmt = * )
     $   'ILAENV = 0 for ISPEC = 10 in LAPACK/SRC/ilaenv.f'
      ieeeok = ilaenv( 10, 'ILAENV', 'N', 1, 2, 3, 4 )
*
      WRITE( 6, fmt = * )
      IF( ieeeok.EQ.0 ) THEN
         WRITE( 6, fmt = * )
     $      'NaN arithmetic did not perform per the ieee spec'
      ELSE
         WRITE( 6, fmt = * )'NaN arithmetic performed as per the ieee',
     $      ' spec.'
         WRITE( 6, fmt = * )
     $      'However, this is not an exhaustive test and does not'
         WRITE( 6, fmt = * )'guarantee that NaN arithmetic meets the',
     $      ' ieee spec.'
      END IF
      WRITE( 6, fmt = * )
*
      END