itest1()

subroutine itest1	(	integer	icomp,
		integer	itrue
	)

Definition at line 1044 of file sblat1.f.

*     ********************************* ITEST1 *************************
*
*     THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
*     EQUALITY.
*     C. L. LAWSON, JPL, 1974 DEC 10
*
*     .. Parameters ..
      INTEGER           NOUT
      parameter(nout=6)
*     .. Scalar Arguments ..
      INTEGER           ICOMP, ITRUE
*     .. Scalars in Common ..
      INTEGER           ICASE, INCX, INCY, N
      LOGICAL           PASS
*     .. Local Scalars ..
      INTEGER           ID
*     .. Common blocks ..
      COMMON            /combla/icase, n, incx, incy, pass
*     .. Executable Statements ..
*
      IF (icomp.EQ.itrue) GO TO 40
*
*                            HERE ICOMP IS NOT EQUAL TO ITRUE.
*
      IF ( .NOT. pass) GO TO 20
*                             PRINT FAIL MESSAGE AND HEADER.
      pass = .false.
      WRITE (nout,99999)
      WRITE (nout,99998)
   20 id = icomp - itrue
      WRITE (nout,99997) icase, n, incx, incy, icomp, itrue, id
   40 CONTINUE
      RETURN
*
99999 FORMAT ('                                       FAIL')
99998 FORMAT (/' CASE  N INCX INCY                               ',
     +       ' COMP                                TRUE     DIFFERENCE',
     +       /1x)
99997 FORMAT (1x,i4,i3,2i5,2i36,i12)
*
*     End of ITEST1
*