LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ itest1()

subroutine itest1 ( integer  ICOMP,
integer  ITRUE 
)

Definition at line 1088 of file dblat1.f.

1089 * ********************************* ITEST1 *************************
1090 *
1091 * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
1092 * EQUALITY.
1093 * C. L. LAWSON, JPL, 1974 DEC 10
1094 *
1095 * .. Parameters ..
1096  INTEGER NOUT
1097  parameter(nout=6)
1098 * .. Scalar Arguments ..
1099  INTEGER ICOMP, ITRUE
1100 * .. Scalars in Common ..
1101  INTEGER ICASE, INCX, INCY, N
1102  LOGICAL PASS
1103 * .. Local Scalars ..
1104  INTEGER ID
1105 * .. Common blocks ..
1106  COMMON /combla/icase, n, incx, incy, pass
1107 * .. Executable Statements ..
1108 *
1109  IF (icomp.EQ.itrue) GO TO 40
1110 *
1111 * HERE ICOMP IS NOT EQUAL TO ITRUE.
1112 *
1113  IF ( .NOT. pass) GO TO 20
1114 * PRINT FAIL MESSAGE AND HEADER.
1115  pass = .false.
1116  WRITE (nout,99999)
1117  WRITE (nout,99998)
1118  20 id = icomp - itrue
1119  WRITE (nout,99997) icase, n, incx, incy, icomp, itrue, id
1120  40 CONTINUE
1121  RETURN
1122 *
1123 99999 FORMAT (' FAIL')
1124 99998 FORMAT (/' CASE N INCX INCY ',
1125  + ' COMP TRUE DIFFERENCE',
1126  + /1x)
1127 99997 FORMAT (1x,i4,i3,2i5,2i36,i12)
1128 *
1129 * End of ITEST1
1130 *