Added test of I?AMAX when there are multiple maxima.

Author: matcross

BLAS/TESTING/cblat1.f

@@ -127,10 +127,10 @@ SUBROUTINE CHECK1(SFAC)
 * .. Local Scalars ..
  COMPLEX CA
  REAL SA
- INTEGER I, J, LEN, NP1
+ INTEGER I, IX, J, LEN, NP1
 * .. Local Arrays ..
- COMPLEX CTRUE5(8,5,2), CTRUE6(8,5,2), CV(8,5,2), CX(8),
- + MWPCS(5), MWPCT(5)
+ COMPLEX CTRUE5(8,5,2), CTRUE6(8,5,2), CV(8,5,2), CVR(8), 
+ + CX(8), CXR(15), MWPCS(5), MWPCT(5)
  REAL STRUE2(5), STRUE4(5)
  INTEGER ITRUE3(5), ITRUEC(5)
 * .. External Functions ..
@@ -173,6 +173,9 @@ SUBROUTINE CHECK1(SFAC)
  + (7.0E0,2.0E0), (0.3E0,0.1E0), (5.0E0,8.0E0),
  + (0.5E0,0.0E0), (6.0E0,9.0E0), (0.0E0,0.5E0),
  + (8.0E0,3.0E0), (0.0E0,0.2E0), (9.0E0,4.0E0)/
+ DATA CVR/(8.0E0,8.0E0), (-7.0E0,-7.0E0),
+ + (9.0E0,9.0E0), (5.0E0,5.0E0), (9.0E0,9.0E0),
+ + (8.0E0,8.0E0), (7.0E0,7.0E0), (7.0E0,7.0E0)/
  DATA STRUE2/0.0E0, 0.5E0, 0.6E0, 0.7E0, 0.8E0/
  DATA STRUE4/0.0E0, 0.7E0, 1.0E0, 1.3E0, 1.6E0/
  DATA ((CTRUE5(I,J,1),I=1,8),J=1,5)/(0.1E0,0.1E0),
@@ -279,6 +282,15 @@ SUBROUTINE CHECK1(SFAC)
  END IF
 *
  40 CONTINUE
+ IF (ICASE.EQ.10) THEN
+ N = 8
+ IX = 1
+ DO 180 I = 1, N
+ CXR(IX) = CVR(I)
+ IX = IX + INCX
+ 180 CONTINUE
+ CALL ITEST1(ICAMAX(N,CXR,INCX),3)
+ END IF
  60 CONTINUE
 *
  INCX = 1

BLAS/TESTING/dblat1.f

@@ -249,10 +249,11 @@ SUBROUTINE CHECK1(SFAC)
  INTEGER ICASE, INCX, INCY, N
  LOGICAL PASS
 * .. Local Scalars ..
- INTEGER I, LEN, NP1
+ INTEGER I, IX, LEN, NP1
 * .. Local Arrays ..
  DOUBLE PRECISION DTRUE1(5), DTRUE3(5), DTRUE5(8,5,2), DV(8,5,2),
- + SA(10), STEMP(1), STRUE(8), SX(8)
+ + DVR(8), SA(10), STEMP(1), STRUE(8), SX(8),
+ + SXR(15)
  INTEGER ITRUE2(5), ITRUEC(5)
 * .. External Functions ..
  DOUBLE PRECISION DASUM, DNRM2
@@ -280,6 +281,8 @@ SUBROUTINE CHECK1(SFAC)
  + 0.2D0, 3.0D0, -0.6D0, 5.0D0, 0.3D0, 2.0D0,
  + 2.0D0, 2.0D0, 0.1D0, 4.0D0, -0.3D0, 6.0D0,
  + -0.5D0, 7.0D0, -0.1D0, 3.0D0/
+ DATA DVR/8.0D0, -7.0D0, 9.0D0, 5.0D0, 9.0D0, 8.0D0,
+ + 7.0D0, 7.0D0/
  DATA DTRUE1/0.0D0, 0.3D0, 0.5D0, 0.7D0, 0.6D0/
  DATA DTRUE3/0.0D0, 0.3D0, 0.7D0, 1.1D0, 1.0D0/
  DATA DTRUE5/0.10D0, 2.0D0, 2.0D0, 2.0D0, 2.0D0,
@@ -335,6 +338,15 @@ SUBROUTINE CHECK1(SFAC)
  STOP
  END IF
  60 CONTINUE
+ IF (ICASE.EQ.10) THEN
+ N = 8
+ IX = 1
+ DO 120 I = 1, N
+ SXR(IX) = DVR(I)
+ IX = IX + INCX
+ 120 CONTINUE
+ CALL ITEST1(IDAMAX(N,SXR,INCX),3)
+ END IF
  80 CONTINUE
  RETURN
  END

BLAS/TESTING/sblat1.f

@@ -249,10 +249,11 @@ SUBROUTINE CHECK1(SFAC)
  INTEGER ICASE, INCX, INCY, N
  LOGICAL PASS
 * .. Local Scalars ..
- INTEGER I, LEN, NP1
+ INTEGER I, IX, LEN, NP1
 * .. Local Arrays ..
  REAL DTRUE1(5), DTRUE3(5), DTRUE5(8,5,2), DV(8,5,2),
- + SA(10), STEMP(1), STRUE(8), SX(8)
+ + DVR(8), SA(10), STEMP(1), STRUE(8), SX(8),
+ + SXR(15)
  INTEGER ITRUE2(5), ITRUEC(5)
 * .. External Functions ..
  REAL SASUM, SNRM2
@@ -280,6 +281,8 @@ SUBROUTINE CHECK1(SFAC)
  + 0.2E0, 3.0E0, -0.6E0, 5.0E0, 0.3E0, 2.0E0,
  + 2.0E0, 2.0E0, 0.1E0, 4.0E0, -0.3E0, 6.0E0,
  + -0.5E0, 7.0E0, -0.1E0, 3.0E0/
+ DATA DVR/8.0E0, -7.0E0, 9.0E0, 5.0E0, 9.0E0, 8.0E0,
+ + 7.0E0, 7.0E0/
  DATA DTRUE1/0.0E0, 0.3E0, 0.5E0, 0.7E0, 0.6E0/
  DATA DTRUE3/0.0E0, 0.3E0, 0.7E0, 1.1E0, 1.0E0/
  DATA DTRUE5/0.10E0, 2.0E0, 2.0E0, 2.0E0, 2.0E0,
@@ -335,6 +338,15 @@ SUBROUTINE CHECK1(SFAC)
  STOP
  END IF
  60 CONTINUE
+ IF (ICASE.EQ.10) THEN
+ N = 8
+ IX = 1
+ DO 120 I = 1, N
+ SXR(IX) = DVR(I)
+ IX = IX + INCX
+ 120 CONTINUE
+ CALL ITEST1(ISAMAX(N,SXR,INCX),3)
+ END IF
  80 CONTINUE
  RETURN
  END

BLAS/TESTING/zblat1.f

@@ -127,10 +127,10 @@ SUBROUTINE CHECK1(SFAC)
 * .. Local Scalars ..
  COMPLEX*16 CA
  DOUBLE PRECISION SA
- INTEGER I, J, LEN, NP1
+ INTEGER I, IX, J, LEN, NP1
 * .. Local Arrays ..
- COMPLEX*16 CTRUE5(8,5,2), CTRUE6(8,5,2), CV(8,5,2), CX(8),
- + MWPCS(5), MWPCT(5)
+ COMPLEX*16 CTRUE5(8,5,2), CTRUE6(8,5,2), CV(8,5,2), CVR(8),
+ + CX(8), CXR(15), MWPCS(5), MWPCT(5)
  DOUBLE PRECISION STRUE2(5), STRUE4(5)
  INTEGER ITRUE3(5), ITRUEC(5)
 * .. External Functions ..
@@ -173,6 +173,9 @@ SUBROUTINE CHECK1(SFAC)
  + (7.0D0,2.0D0), (0.3D0,0.1D0), (5.0D0,8.0D0),
  + (0.5D0,0.0D0), (6.0D0,9.0D0), (0.0D0,0.5D0),
  + (8.0D0,3.0D0), (0.0D0,0.2D0), (9.0D0,4.0D0)/
+ DATA CVR/(8.0D0,8.0D0), (-7.0D0,-7.0D0),
+ + (9.0D0,9.0D0), (5.0D0,5.0D0), (9.0D0,9.0D0),
+ + (8.0D0,8.0D0), (7.0D0,7.0D0), (7.0D0,7.0D0)/
  DATA STRUE2/0.0D0, 0.5D0, 0.6D0, 0.7D0, 0.8D0/
  DATA STRUE4/0.0D0, 0.7D0, 1.0D0, 1.3D0, 1.6D0/
  DATA ((CTRUE5(I,J,1),I=1,8),J=1,5)/(0.1D0,0.1D0),
@@ -279,6 +282,15 @@ SUBROUTINE CHECK1(SFAC)
  END IF
 *
  40 CONTINUE
+ IF (ICASE.EQ.10) THEN
+ N = 8
+ IX = 1
+ DO 180 I = 1, N
+ CXR(IX) = CVR(I)
+ IX = IX + INCX
+ 180 CONTINUE
+ CALL ITEST1(IZAMAX(N,CXR,INCX),3)
+ END IF
  60 CONTINUE
 *
  INCX = 1