Lines Matching full:scomp
521 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)
524 * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO
537 REAL SCOMP(LEN), SSIZE(LEN), STRUE(LEN)
554 SD = SCOMP(I) - STRUE(I)
558 * HERE SCOMP(I) IS NOT CLOSE TO STRUE(I).
565 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
590 REAL SCOMP(1), STRUE(1)
595 SCOMP(1) = SCOMP1
597 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
624 REAL SCOMP(20), SSIZE(20), STRUE(20)
631 SCOMP(2*I-1) = REAL(CCOMP(I))
632 SCOMP(2*I) = AIMAG(CCOMP(I))
639 CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC)
