COMPLEX*16      CCORX(6)
      INTRINSIC       DCMPLX
      DO 80 I = 1, 5, 3
         CCORX(I) = DCMPLX(1.1,1.1)
        WRITE(6,*)CCORX(I)
   80 CONTINUE
      END