Lines Matching refs:SSIZE
563 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)
580 DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN)
598 IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
609 + STRUE(I), SD, SSIZE(I)
619 SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
631 DOUBLE PRECISION SSIZE(*)
640 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
667 DOUBLE PRECISION SCOMP(20), SSIZE(20), STRUE(20)
678 SSIZE(2*I-1) = DBLE(CSIZE(I))
679 SSIZE(2*I) = DIMAG(CSIZE(I))
682 CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC)
