LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
dlasum.f
Go to the documentation of this file.
00001 *> \brief \b DLASUM
00002 *
00003 *  =========== DOCUMENTATION ===========
00004 *
00005 * Online html documentation available at 
00006 *            http://www.netlib.org/lapack/explore-html/ 
00007 *
00008 *  Definition:
00009 *  ===========
00010 *
00011 *       SUBROUTINE DLASUM( TYPE, IOUNIT, IE, NRUN )
00012 * 
00013 *       .. Scalar Arguments ..
00014 *       CHARACTER*3        TYPE
00015 *       INTEGER            IE, IOUNIT, NRUN
00016 *       ..
00017 *  
00018 *
00019 *> \par Purpose:
00020 *  =============
00021 *>
00022 *> \verbatim
00023 *>
00024 *> DLASUM prints a summary of the results from one of the test routines.
00025 *> \endverbatim
00026 *
00027 *  Arguments:
00028 *  ==========
00029 *
00030 *
00031 *  Authors:
00032 *  ========
00033 *
00034 *> \author Univ. of Tennessee 
00035 *> \author Univ. of California Berkeley 
00036 *> \author Univ. of Colorado Denver 
00037 *> \author NAG Ltd. 
00038 *
00039 *> \date November 2011
00040 *
00041 *> \ingroup double_eig
00042 *
00043 *  =====================================================================
00044       SUBROUTINE DLASUM( TYPE, IOUNIT, IE, NRUN )
00045 *
00046 *  -- LAPACK test routine (version 3.4.0) --
00047 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
00048 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
00049 *     November 2011
00050 *
00051 *     .. Scalar Arguments ..
00052       CHARACTER*3        TYPE
00053       INTEGER            IE, IOUNIT, NRUN
00054 *     ..
00055 *
00056 *  =====================================================================
00057 *
00058 *     .. Executable Statements ..
00059 *
00060       IF( IE.GT.0 ) THEN
00061          WRITE( IOUNIT, FMT = 9999 )TYPE, ': ', IE, ' out of ', NRUN,
00062      $      ' tests failed to pass the threshold'
00063       ELSE
00064          WRITE( IOUNIT, FMT = 9998 )'All tests for ', TYPE,
00065      $      ' passed the threshold ( ', NRUN, ' tests run)'
00066       END IF
00067  9999 FORMAT( 1X, A3, A2, I4, A8, I5, A35 )
00068  9998 FORMAT( / 1X, A14, A3, A24, I5, A11 )
00069       RETURN
00070 *
00071 *     End of DLASUM
00072 *
00073       END
 All Files Functions