testdsdot()

subroutine testdsdot	(	real	scomp,
		real	strue,
		real	ssize,
		real	sfac
	)

Definition at line 1001 of file dblat1.f.

*     ********************************* STEST **************************
*
*     THIS SUBR COMPARES ARRAYS  SCOMP() AND STRUE() OF LENGTH LEN TO
*     SEE IF THE TERM BY TERM DIFFERENCES, MULTIPLIED BY SFAC, ARE
*     NEGLIGIBLE.
*
*     C. L. LAWSON, JPL, 1974 DEC 10
*
*     .. Parameters ..
      INTEGER          NOUT
      REAL             ZERO
      parameter(nout=6, zero=0.0e0)
*     .. Scalar Arguments ..
      REAL             SFAC, SCOMP, SSIZE, STRUE
*     .. Scalars in Common ..
      INTEGER          ICASE, INCX, INCY, N
      LOGICAL          PASS
*     .. Local Scalars ..
      REAL             SD
*     .. Intrinsic Functions ..
      INTRINSIC        abs
*     .. Common blocks ..
      COMMON           /combla/icase, n, incx, incy, pass
*     .. Executable Statements ..
*
         sd = scomp - strue
         IF (abs(sfac*sd) .LE. abs(ssize) * epsilon(zero))
     +       GO TO 40
*
*                             HERE    SCOMP(I) IS NOT CLOSE TO STRUE(I).
*
         IF ( .NOT. pass) GO TO 20
*                             PRINT FAIL MESSAGE AND HEADER.
         pass = .false.
         WRITE (nout,99999)
         WRITE (nout,99998)
   20    WRITE (nout,99997) icase, n, incx, incy, scomp,
     +     strue, sd, ssize
   40 CONTINUE
      RETURN
*
99999 FORMAT ('                                       FAIL')
99998 FORMAT (/' CASE  N INCX INCY                           ',
     +       ' COMP(I)                             TRUE(I)  DIFFERENCE',
     +       '     SIZE(I)',/1x)
99997 FORMAT (1x,i4,i3,1i5,i3,2e36.8,2e12.4)
*
*     End of TESTDSDOT
*

Here is the caller graph for this function: