SUBROUTINE DZPORC(NDEG,COEFF,ROOT)
      IMPLICIT REAL*8(A-H,O-Z)
      COMPLEX*16 ROOT
      LOGICAL FAIL
      DIMENSION COEFF(101),ROOT(NDEG),DCOEFF(101),ZEROR(100),
     +ZEROI(100)
      EXTERNAL RPOLY
      DO 10 I=1,NDEG+1
         DCOEFF(I)=COEFF(NDEG+1-(I-1))
 10   CONTINUE
      CALL RPOLY(DCOEFF,NDEG,ZEROR,ZEROI,FAIL)
      DO 20 I=1,NDEG
         ROOT(I)=DCMPLX(ZEROR(I),ZEROI(I))
 20   CONTINUE
      RETURN
      END