LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ itest1()

subroutine itest1 ( integer  ICOMP,
integer  ITRUE 
)

Definition at line 982 of file sblat1.f.

982 * ********************************* ITEST1 *************************
983 *
984 * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
985 * EQUALITY.
986 * C. L. LAWSON, JPL, 1974 DEC 10
987 *
988 * .. Parameters ..
989  INTEGER nout
990  parameter(nout=6)
991 * .. Scalar Arguments ..
992  INTEGER icomp, itrue
993 * .. Scalars in Common ..
994  INTEGER icase, incx, incy, n
995  LOGICAL pass
996 * .. Local Scalars ..
997  INTEGER id
998 * .. Common blocks ..
999  COMMON /combla/icase, n, incx, incy, pass
1000 * .. Executable Statements ..
1001 *
1002  IF (icomp.EQ.itrue) GO TO 40
1003 *
1004 * HERE ICOMP IS NOT EQUAL TO ITRUE.
1005 *
1006  IF ( .NOT. pass) GO TO 20
1007 * PRINT FAIL MESSAGE AND HEADER.
1008  pass = .false.
1009  WRITE (nout,99999)
1010  WRITE (nout,99998)
1011  20 id = icomp - itrue
1012  WRITE (nout,99997) icase, n, incx, incy, icomp, itrue, id
1013  40 CONTINUE
1014  RETURN
1015 *
1016 99999 FORMAT (' FAIL')
1017 99998 FORMAT (/' CASE N INCX INCY ',
1018  + ' COMP TRUE DIFFERENCE',
1019  + /1x)
1020 99997 FORMAT (1x,i4,i3,2i5,2i36,i12)