LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
subroutine testdsdot ( real  SCOMP,
real  STRUE,
real  SSIZE,
real  SFAC 
)

Definition at line 943 of file dblat1.f.

943 * ********************************* STEST **************************
944 *
945 * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO
946 * SEE IF THE TERM BY TERM DIFFERENCES, MULTIPLIED BY SFAC, ARE
947 * NEGLIGIBLE.
948 *
949 * C. L. LAWSON, JPL, 1974 DEC 10
950 *
951 * .. Parameters ..
952  INTEGER nout
953  REAL zero
954  parameter (nout=6, zero=0.0e0)
955 * .. Scalar Arguments ..
956  REAL sfac, scomp, ssize, strue
957 * .. Scalars in Common ..
958  INTEGER icase, incx, incy, n
959  LOGICAL pass
960 * .. Local Scalars ..
961  REAL sd
962 * .. Intrinsic Functions ..
963  INTRINSIC abs
964 * .. Common blocks ..
965  COMMON /combla/icase, n, incx, incy, pass
966 * .. Executable Statements ..
967 *
968  sd = scomp - strue
969  IF (abs(sfac*sd) .LE. abs(ssize) * epsilon(zero))
970  + GO TO 40
971 *
972 * HERE SCOMP(I) IS NOT CLOSE TO STRUE(I).
973 *
974  IF ( .NOT. pass) GO TO 20
975 * PRINT FAIL MESSAGE AND HEADER.
976  pass = .false.
977  WRITE (nout,99999)
978  WRITE (nout,99998)
979  20 WRITE (nout,99997) icase, n, incx, incy, scomp,
980  + strue, sd, ssize
981  40 CONTINUE
982  RETURN
983 *
984 99999 FORMAT (' FAIL')
985 99998 FORMAT (/' CASE N INCX INCY ',
986  + ' COMP(I) TRUE(I) DIFFERENCE',
987  + ' SIZE(I)',/1x)
988 99997 FORMAT (1x,i4,i3,1i5,i3,2e36.8,2e12.4)

Here is the caller graph for this function: