LAPACK  3.9.1
LAPACK: Linear Algebra PACKage

◆ itest1()

subroutine itest1 ( integer  ICOMP,
integer  ITRUE 
)

Definition at line 1012 of file sblat1.f.

1013 * ********************************* ITEST1 *************************
1014 *
1015 * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
1016 * EQUALITY.
1017 * C. L. LAWSON, JPL, 1974 DEC 10
1018 *
1019 * .. Parameters ..
1020  INTEGER NOUT
1021  parameter(nout=6)
1022 * .. Scalar Arguments ..
1023  INTEGER ICOMP, ITRUE
1024 * .. Scalars in Common ..
1025  INTEGER ICASE, INCX, INCY, N
1026  LOGICAL PASS
1027 * .. Local Scalars ..
1028  INTEGER ID
1029 * .. Common blocks ..
1030  COMMON /combla/icase, n, incx, incy, pass
1031 * .. Executable Statements ..
1032 *
1033  IF (icomp.EQ.itrue) GO TO 40
1034 *
1035 * HERE ICOMP IS NOT EQUAL TO ITRUE.
1036 *
1037  IF ( .NOT. pass) GO TO 20
1038 * PRINT FAIL MESSAGE AND HEADER.
1039  pass = .false.
1040  WRITE (nout,99999)
1041  WRITE (nout,99998)
1042  20 id = icomp - itrue
1043  WRITE (nout,99997) icase, n, incx, incy, icomp, itrue, id
1044  40 CONTINUE
1045  RETURN
1046 *
1047 99999 FORMAT (' FAIL')
1048 99998 FORMAT (/' CASE N INCX INCY ',
1049  + ' COMP TRUE DIFFERENCE',
1050  + /1x)
1051 99997 FORMAT (1x,i4,i3,2i5,2i36,i12)