Lines Matching full:scomp
886 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)
889 * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO
903 DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN)
920 SD = SCOMP(I) - STRUE(I)
924 * HERE SCOMP(I) IS NOT CLOSE TO STRUE(I).
931 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, I, SCOMP(I),
942 SUBROUTINE TESTDSDOT(SCOMP,STRUE,SSIZE,SFAC)
945 * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO
956 REAL SFAC, SCOMP, SSIZE, STRUE
968 SD = SCOMP - STRUE
972 * HERE SCOMP(I) IS NOT CLOSE TO STRUE(I).
979 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, SCOMP,
1004 DOUBLE PRECISION SCOMP(1), STRUE(1)
1009 SCOMP(1) = SCOMP1
1011 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
