130       INTEGER           I, J, LEN, NP1  local
148       DATA              ((CV(I,J,1),I=1,8),J=1,5)/(0.1D0,0.1D0),
162       DATA              ((CV(I,J,2),I=1,8),J=1,5)/(0.1D0,0.1D0),
178       DATA              ((CTRUE5(I,J,1),I=1,8),J=1,5)/(0.1D0,0.1D0),
194       DATA              ((CTRUE5(I,J,2),I=1,8),J=1,5)/(0.1D0,0.1D0),
210       DATA              ((CTRUE6(I,J,1),I=1,8),J=1,5)/(0.1D0,0.1D0),
225       DATA              ((CTRUE6(I,J,2),I=1,8),J=1,5)/(0.1D0,0.1D0),
247             DO 20 I = 1, LEN
248                CX(I) = CV(I,NP1,INCX)
284          DO 80 I = 1, 5
285             MWPCT(I) = (0.0D0,0.0D0)
286             MWPCS(I) = (1.0D0,1.0D0)
294          DO 100 I = 1, 5
295             MWPCT(I) = (0.0D0,0.0D0)
296             MWPCS(I) = (1.0D0,1.0D0)
302          DO 120 I = 1, 5
303             MWPCT(I) = CX(I)
304             MWPCS(I) = CX(I)
310          DO 140 I = 1, 5
311             MWPCT(I) = -CX(I)
312             MWPCS(I) = -CX(I)
330       INTEGER           I, J, KI, KN, KSIZE, LENX, LENY, MX, MY  local
357       DATA              ((CT8(I,J,1),I=1,7),J=1,4)/(0.6D0,-0.6D0),
368       DATA              ((CT8(I,J,2),I=1,7),J=1,4)/(0.6D0,-0.6D0),
380       DATA              ((CT8(I,J,3),I=1,7),J=1,4)/(0.6D0,-0.6D0),
391       DATA              ((CT8(I,J,4),I=1,7),J=1,4)/(0.6D0,-0.6D0),
417       DATA              ((CT10X(I,J,1),I=1,7),J=1,4)/(0.7D0,-0.8D0),
427       DATA              ((CT10X(I,J,2),I=1,7),J=1,4)/(0.7D0,-0.8D0),
438       DATA              ((CT10X(I,J,3),I=1,7),J=1,4)/(0.7D0,-0.8D0),
448       DATA              ((CT10X(I,J,4),I=1,7),J=1,4)/(0.7D0,-0.8D0),
458       DATA              ((CT10Y(I,J,1),I=1,7),J=1,4)/(0.6D0,-0.6D0),
469       DATA              ((CT10Y(I,J,2),I=1,7),J=1,4)/(0.6D0,-0.6D0),
480       DATA              ((CT10Y(I,J,3),I=1,7),J=1,4)/(0.6D0,-0.6D0),
491       DATA              ((CT10Y(I,J,4),I=1,7),J=1,4)/(0.6D0,-0.6D0),
529             DO 20 I = 1, 7
530                CX(I) = CX1(I)
531                CY(I) = CY1(I)
586       INTEGER          I  local
596       DO 40 I = 1, LEN
597          SD = SCOMP(I) - STRUE(I)
598          IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
608    20    WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
609      +     STRUE(I), SD, SSIZE(I)
665       INTEGER          I  local
673       DO 20 I = 1, LEN
674          SCOMP(2*I-1) = DBLE(CCOMP(I))
675          SCOMP(2*I) = DIMAG(CCOMP(I))
676          STRUE(2*I-1) = DBLE(CTRUE(I))
677          STRUE(2*I) = DIMAG(CTRUE(I))
678          SSIZE(2*I-1) = DBLE(CSIZE(I))
679          SSIZE(2*I) = DIMAG(CSIZE(I))