LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ itest1()

subroutine itest1 ( integer  icomp,
integer  itrue 
)

Definition at line 747 of file zblat1.f.

748* ********************************* ITEST1 *************************
749*
750* THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
751* EQUALITY.
752* C. L. LAWSON, JPL, 1974 DEC 10
753*
754* .. Parameters ..
755 INTEGER NOUT
756 parameter(nout=6)
757* .. Scalar Arguments ..
758 INTEGER ICOMP, ITRUE
759* .. Scalars in Common ..
760 INTEGER ICASE, INCX, INCY, MODE, N
761 LOGICAL PASS
762* .. Local Scalars ..
763 INTEGER ID
764* .. Common blocks ..
765 COMMON /combla/icase, n, incx, incy, mode, pass
766* .. Executable Statements ..
767 IF (icomp.EQ.itrue) GO TO 40
768*
769* HERE ICOMP IS NOT EQUAL TO ITRUE.
770*
771 IF ( .NOT. pass) GO TO 20
772* PRINT FAIL MESSAGE AND HEADER.
773 pass = .false.
774 WRITE (nout,99999)
775 WRITE (nout,99998)
776 20 id = icomp - itrue
777 WRITE (nout,99997) icase, n, incx, incy, mode, icomp, itrue, id
778 40 CONTINUE
779 RETURN
780*
78199999 FORMAT (' FAIL')
78299998 FORMAT (/' CASE N INCX INCY MODE ',
783 + ' COMP TRUE DIFFERENCE',
784 + /1x)
78599997 FORMAT (1x,i4,i3,3i5,2i36,i12)
786*
787* End of ITEST1
788*