Lines Matching refs:SSIZE
352 $ DY1(7), SSIZE1(4), SSIZE2(14,2), SSIZE(7), local
655 SSIZE(I)=STX(I)
660 $ SSIZE(1) = 2.4D0
662 $ SSIZE(5) = 1.8D0
665 CALL STEST(LENX,SX,STX,SSIZE,SFAC)
886 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
903 DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
921 IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
932 + STRUE(I), SD, SSIZE(I)
942 SUBROUTINE TESTDSDOT(SCOMP,STRUE,SSIZE,SFAC) argument
956 REAL SFAC, SCOMP, SSIZE, STRUE local
969 IF (ABS(SFAC*SD) .LE. ABS(SSIZE) * EPSILON(ZERO))
980 + STRUE, SD, SSIZE
990 SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) argument
1002 DOUBLE PRECISION SSIZE(*) local
1011 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)