Lines Matching refs:STRUE
255 + SA(10), STEMP(1), STRUE(8), SX(8)
322 STRUE(I) = DTRUE5(I,NP1,INCX)
324 CALL STEST(LEN,SX,STRUE,STRUE,SFAC)
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).
932 + STRUE(I), SD, SSIZE(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).
980 + STRUE, SD, SSIZE
1004 DOUBLE PRECISION SCOMP(1), STRUE(1)
1010 STRUE(1) = STRUE1
1011 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)