51       INTEGER          ICASE, INCX, INCY, N  variable
59       COMMON           /COMBLA/ICASE, N, INCX, INCY, PASS  local
74          INCX = 9999
100       INTEGER          ICASE, INCX, INCY, N  local
105       COMMON           /COMBLA/ICASE, N, INCX, INCY, PASS  local
133       INTEGER           ICASE, INCX, INCY, N  local
144       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS  local
249       INTEGER           ICASE, INCX, INCY, N  local
266       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS  local
301       DO 80 INCX = 1, 2
307                SX(I) = DV(I,NP1,INCX)
313                CALL STEST1(DNRM2(N,SX,INCX),STEMP(1),STEMP,SFAC)
317                CALL STEST1(DASUM(N,SX,INCX),STEMP(1),STEMP,SFAC)
320                CALL DSCAL(N,SA((INCX-1)*5+NP1),SX,INCX)
322                   STRUE(I) = DTRUE5(I,NP1,INCX)
327                CALL ITEST1(IDAMAX(N,SX,INCX),ITRUE2(NP1))
343       INTEGER           ICASE, INCX, INCY, N  local
367       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS  local
596          INCX = INCXS(KI)
598          MX = ABS(INCX)
614                CALL STEST1(DDOT(N,SX,INCX,SY,INCY),DT7(KN,KI),SSIZE1(KN)
618                CALL DAXPY(N,SA,SX,INCX,SY,INCY)
628                CALL DCOPY(N,SX,INCX,SY,INCY)
632                CALL DSWAP(N,SX,INCX,SY,INCY)
664                   CALL   DROTM(N,SX,INCX,SY,INCY,DTEMP)
670             CALL TESTDSDOT(REAL(DSDOT(N,REAL(SX),INCX,REAL(SY),INCY)),
687       INTEGER           ICASE, INCX, INCY, N  local
705       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS  local
762          INCX = INCXS(KI)
764          MX = ABS(INCX)
781                CALL DROT(N,SX,INCX,SY,INCY,SC,SS)
872          INCX = MWPINX(I)
880          CALL DROT(MWPN(I),COPYX,INCX,COPYY,INCY,MWPC(I),MWPS(I))
905       INTEGER          ICASE, INCX, INCY, N  local
916       COMMON           /COMBLA/ICASE, N, INCX, INCY, PASS  local
931    20    WRITE (NOUT,99997) ICASE, N, INCX, INCY, I, SCOMP(I),
958       INTEGER          ICASE, INCX, INCY, N  local
965       COMMON           /COMBLA/ICASE, N, INCX, INCY, PASS  local
979    20    WRITE (NOUT,99997) ICASE, N, INCX, INCY, SCOMP,
1038       INTEGER           ICASE, INCX, INCY, N  local
1043       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS  local
1056       WRITE (NOUT,99997) ICASE, N, INCX, INCY, ICOMP, ITRUE, ID