LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ itest1()

subroutine itest1 ( integer  ICOMP,
integer  ITRUE 
)

Definition at line 1027 of file dblat1.f.

1027 * ********************************* ITEST1 *************************
1028 *
1029 * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
1030 * EQUALITY.
1031 * C. L. LAWSON, JPL, 1974 DEC 10
1032 *
1033 * .. Parameters ..
1034  INTEGER nout
1035  parameter(nout=6)
1036 * .. Scalar Arguments ..
1037  INTEGER icomp, itrue
1038 * .. Scalars in Common ..
1039  INTEGER icase, incx, incy, n
1040  LOGICAL pass
1041 * .. Local Scalars ..
1042  INTEGER id
1043 * .. Common blocks ..
1044  COMMON /combla/icase, n, incx, incy, pass
1045 * .. Executable Statements ..
1046 *
1047  IF (icomp.EQ.itrue) GO TO 40
1048 *
1049 * HERE ICOMP IS NOT EQUAL TO ITRUE.
1050 *
1051  IF ( .NOT. pass) GO TO 20
1052 * PRINT FAIL MESSAGE AND HEADER.
1053  pass = .false.
1054  WRITE (nout,99999)
1055  WRITE (nout,99998)
1056  20 id = icomp - itrue
1057  WRITE (nout,99997) icase, n, incx, incy, icomp, itrue, id
1058  40 CONTINUE
1059  RETURN
1060 *
1061 99999 FORMAT (' FAIL')
1062 99998 FORMAT (/' CASE N INCX INCY ',
1063  + ' COMP TRUE DIFFERENCE',
1064  + /1x)
1065 99997 FORMAT (1x,i4,i3,2i5,2i36,i12)