9       INTEGER          ICASE, INCX, INCY, MODE, N  variable
17       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS  local
32          INCX = 9999
59       INTEGER          ICASE, INCX, INCY, MODE, N  local
64       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS  local
89       INTEGER           ICASE, INCX, INCY, MODE, N  local
100       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS  local
150       INTEGER           ICASE, INCX, INCY, MODE, N  local
167       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS  local
202       DO 80 INCX = 1, 2
208                SX(I) = DV(I,NP1,INCX)
214                CALL STEST1(DNRM2TEST(N,SX,INCX),STEMP,STEMP,SFAC)
218                CALL STEST1(DASUMTEST(N,SX,INCX),STEMP,STEMP,SFAC)
221                CALL DSCALTEST(N,SA((INCX-1)*5+NP1),SX,INCX)
223                   STRUE(I) = DTRUE5(I,NP1,INCX)
228                CALL ITEST1(IDAMAXTEST(N,SX,INCX),ITRUE2(NP1))
244       INTEGER           ICASE, INCX, INCY, MODE, N  local
263       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS  local
341          INCX = INCXS(KI)
343          MX = ABS(INCX)
359                CALL STEST1(DDOTTEST(N,SX,INCX,SY,INCY),DT7(KN,KI),
363                CALL DAXPYTEST(N,SA,SX,INCX,SY,INCY)
373                CALL DCOPYTEST(N,SX,INCX,SY,INCY)
377                CALL DSWAPTEST(N,SX,INCX,SY,INCY)
399       INTEGER           ICASE, INCX, INCY, MODE, N  local
417       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS  local
474          INCX = INCXS(KI)
476          MX = ABS(INCX)
493                CALL DROTTEST(N,SX,INCX,SY,INCY,SC,SS)
584          INCX = MWPINX(I)
592          CALL DROTTEST(MWPN(I),COPYX,INCX,COPYY,INCY,MWPC(I),MWPS(I)) 
616       INTEGER          ICASE, INCX, INCY, MODE, N  local
627       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS  local
642    20    WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
701       INTEGER           ICASE, INCX, INCY, MODE, N  local
706       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS  local
719       WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID