d1/d90/slasum_8f_source.html

00001       SUBROUTINE SLASUM( TYPE, IOUNIT, IE, NRUN )
00002 *
00003 *  -- LAPACK auxiliary test routine (version 3.1) --
00004 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
00005 *     November 2006
00006 *
00007 *     .. Scalar Arguments ..
00008       CHARACTER*3        TYPE
00009       INTEGER            IE, IOUNIT, NRUN
00010 *     ..
00011 *
00012 *  Purpose
00013 *  =======
00014 *
00015 *  SLASUM prints a summary of the results from one of the test routines.
00016 *
00017 *  =====================================================================
00018 *
00019 *     .. Executable Statements ..
00020 *
00021       IF( IE.GT.0 ) THEN
00022          WRITE( IOUNIT, FMT = 9999 )TYPE, ': ', IE, ' out of ', NRUN,
00023      $      ' tests failed to pass the threshold'
00024       ELSE
00025          WRITE( IOUNIT, FMT = 9998 )'All tests for ', TYPE,
00026      $      ' passed the threshold (', NRUN, ' tests run)'
00027       END IF
00028  9999 FORMAT( 1X, A3, A2, I4, A8, I5, A35 )
00029  9998 FORMAT( / 1X, A14, A3, A23, I5, A11 )
00030       RETURN
00031 *
00032 *     End of SLASUM
00033 *
00034       END