LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ itest1()

subroutine itest1 ( integer  ICOMP,
integer  ITRUE 
)

Definition at line 742 of file cblat1.f.

743 * ********************************* ITEST1 *************************
744 *
745 * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
746 * EQUALITY.
747 * C. L. LAWSON, JPL, 1974 DEC 10
748 *
749 * .. Parameters ..
750  INTEGER NOUT
751  parameter(nout=6)
752 * .. Scalar Arguments ..
753  INTEGER ICOMP, ITRUE
754 * .. Scalars in Common ..
755  INTEGER ICASE, INCX, INCY, MODE, N
756  LOGICAL PASS
757 * .. Local Scalars ..
758  INTEGER ID
759 * .. Common blocks ..
760  COMMON /combla/icase, n, incx, incy, mode, pass
761 * .. Executable Statements ..
762  IF (icomp.EQ.itrue) GO TO 40
763 *
764 * HERE ICOMP IS NOT EQUAL TO ITRUE.
765 *
766  IF ( .NOT. pass) GO TO 20
767 * PRINT FAIL MESSAGE AND HEADER.
768  pass = .false.
769  WRITE (nout,99999)
770  WRITE (nout,99998)
771  20 id = icomp - itrue
772  WRITE (nout,99997) icase, n, incx, incy, mode, icomp, itrue, id
773  40 CONTINUE
774  RETURN
775 *
776 99999 FORMAT (' FAIL')
777 99998 FORMAT (/' CASE N INCX INCY MODE ',
778  + ' COMP TRUE DIFFERENCE',
779  + /1x)
780 99997 FORMAT (1x,i4,i3,3i5,2i36,i12)
781 *
782 * End of ITEST1
783 *
Here is the caller graph for this function: