LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ itest1()

subroutine itest1 ( integer  ICOMP,
integer  ITRUE 
)

Definition at line 686 of file cblat1.f.

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