![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
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