LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ itest1()

subroutine itest1 ( integer  ICOMP,
integer  ITRUE 
)

Definition at line 1039 of file sblat1.f.

1040 * ********************************* ITEST1 *************************
1041 *
1042 * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
1043 * EQUALITY.
1044 * C. L. LAWSON, JPL, 1974 DEC 10
1045 *
1046 * .. Parameters ..
1047  INTEGER NOUT
1048  parameter(nout=6)
1049 * .. Scalar Arguments ..
1050  INTEGER ICOMP, ITRUE
1051 * .. Scalars in Common ..
1052  INTEGER ICASE, INCX, INCY, N
1053  LOGICAL PASS
1054 * .. Local Scalars ..
1055  INTEGER ID
1056 * .. Common blocks ..
1057  COMMON /combla/icase, n, incx, incy, pass
1058 * .. Executable Statements ..
1059 *
1060  IF (icomp.EQ.itrue) GO TO 40
1061 *
1062 * HERE ICOMP IS NOT EQUAL TO ITRUE.
1063 *
1064  IF ( .NOT. pass) GO TO 20
1065 * PRINT FAIL MESSAGE AND HEADER.
1066  pass = .false.
1067  WRITE (nout,99999)
1068  WRITE (nout,99998)
1069  20 id = icomp - itrue
1070  WRITE (nout,99997) icase, n, incx, incy, icomp, itrue, id
1071  40 CONTINUE
1072  RETURN
1073 *
1074 99999 FORMAT (' FAIL')
1075 99998 FORMAT (/' CASE N INCX INCY ',
1076  + ' COMP TRUE DIFFERENCE',
1077  + /1x)
1078 99997 FORMAT (1x,i4,i3,2i5,2i36,i12)
1079 *
1080 * End of ITEST1
1081 *