Lines Matching full:scomp
890 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)
893 * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO
907 REAL SCOMP(LEN), SSIZE(LEN), STRUE(LEN)
924 SD = SCOMP(I) - STRUE(I)
928 * HERE SCOMP(I) IS NOT CLOSE TO STRUE(I).
935 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, I, SCOMP(I),
960 REAL SCOMP(1), STRUE(1)
965 SCOMP(1) = SCOMP1
967 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
