88       INTEGER           I, J, LEN, NP1  local
106       DATA              ((CV(I,J,1),I=1,8),J=1,5)/(0.1D0,0.1D0),
120       DATA              ((CV(I,J,2),I=1,8),J=1,5)/(0.1D0,0.1D0),
136       DATA              ((CTRUE5(I,J,1),I=1,8),J=1,5)/(0.1D0,0.1D0),
152       DATA              ((CTRUE5(I,J,2),I=1,8),J=1,5)/(0.1D0,0.1D0),
168       DATA              ((CTRUE6(I,J,1),I=1,8),J=1,5)/(0.1D0,0.1D0),
183       DATA              ((CTRUE6(I,J,2),I=1,8),J=1,5)/(0.1D0,0.1D0),
205             DO 20 I = 1, LEN
206                CX(I) = CV(I,NP1,INCX)
242          DO 80 I = 1, 5
243             MWPCT(I) = (0.0D0,0.0D0)
244             MWPCS(I) = (1.0D0,1.0D0)
252          DO 100 I = 1, 5
253             MWPCT(I) = (0.0D0,0.0D0)
254             MWPCS(I) = (1.0D0,1.0D0)
260          DO 120 I = 1, 5
261             MWPCT(I) = CX(I)
262             MWPCS(I) = CX(I)
268          DO 140 I = 1, 5
269             MWPCT(I) = -CX(I)
270             MWPCS(I) = -CX(I)
288       INTEGER           I, J, KI, KN, KSIZE, LENX, LENY, MX, MY  local
315       DATA              ((CT8(I,J,1),I=1,7),J=1,4)/(0.6D0,-0.6D0),
326       DATA              ((CT8(I,J,2),I=1,7),J=1,4)/(0.6D0,-0.6D0),
338       DATA              ((CT8(I,J,3),I=1,7),J=1,4)/(0.6D0,-0.6D0),
349       DATA              ((CT8(I,J,4),I=1,7),J=1,4)/(0.6D0,-0.6D0),
375       DATA              ((CT10X(I,J,1),I=1,7),J=1,4)/(0.7D0,-0.8D0),
385       DATA              ((CT10X(I,J,2),I=1,7),J=1,4)/(0.7D0,-0.8D0),
396       DATA              ((CT10X(I,J,3),I=1,7),J=1,4)/(0.7D0,-0.8D0),
406       DATA              ((CT10X(I,J,4),I=1,7),J=1,4)/(0.7D0,-0.8D0),
416       DATA              ((CT10Y(I,J,1),I=1,7),J=1,4)/(0.6D0,-0.6D0),
427       DATA              ((CT10Y(I,J,2),I=1,7),J=1,4)/(0.6D0,-0.6D0),
438       DATA              ((CT10Y(I,J,3),I=1,7),J=1,4)/(0.6D0,-0.6D0),
449       DATA              ((CT10Y(I,J,4),I=1,7),J=1,4)/(0.6D0,-0.6D0),
487             DO 20 I = 1, 7
488                CX(I) = CX1(I)
489                CY(I) = CY1(I)
543       INTEGER          I  local
553       DO 40 I = 1, LEN
554          SD = SCOMP(I) - STRUE(I)
555          IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0D0)
565    20    WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
566      +     STRUE(I), SD, SSIZE(I)
622       INTEGER          I  local
630       DO 20 I = 1, LEN
631          SCOMP(2*I-1) = DBLE(CCOMP(I))
632          SCOMP(2*I) = DIMAG(CCOMP(I))
633          STRUE(2*I-1) = DBLE(CTRUE(I))
634          STRUE(2*I) = DIMAG(CTRUE(I))
635          SSIZE(2*I-1) = DBLE(CSIZE(I))
636          SSIZE(2*I) = DIMAG(CSIZE(I))