LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ itest1()

subroutine itest1 ( integer  ICOMP,
integer  ITRUE 
)

Definition at line 689 of file c_dblat1.f.

689 * ********************************* ITEST1 *************************
690 *
691 * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
692 * EQUALITY.
693 * C. L. LAWSON, JPL, 1974 DEC 10
694 *
695 * .. Parameters ..
696  INTEGER nout
697  parameter(nout=6)
698 * .. Scalar Arguments ..
699  INTEGER icomp, itrue
700 * .. Scalars in Common ..
701  INTEGER icase, incx, incy, mode, n
702  LOGICAL pass
703 * .. Local Scalars ..
704  INTEGER id
705 * .. Common blocks ..
706  COMMON /combla/icase, n, incx, incy, mode, pass
707 * .. Executable Statements ..
708 *
709  IF (icomp.EQ.itrue) GO TO 40
710 *
711 * HERE ICOMP IS NOT EQUAL TO ITRUE.
712 *
713  IF ( .NOT. pass) GO TO 20
714 * PRINT FAIL MESSAGE AND HEADER.
715  pass = .false.
716  WRITE (nout,99999)
717  WRITE (nout,99998)
718  20 id = icomp - itrue
719  WRITE (nout,99997) icase, n, incx, incy, mode, icomp, itrue, id
720  40 CONTINUE
721  RETURN
722 *
723 99999 FORMAT (' FAIL')
724 99998 FORMAT (/' CASE N INCX INCY MODE ',
725  + ' COMP TRUE DIFFERENCE',
726  + /1x)
727 99997 FORMAT (1x,i4,i3,3i5,2i36,i12)