Last: tsturm Up: ../eispas.html Next: csroot

CDIV(AR,AI,BR,BI,CR,CI)

       SUBROUTINE CDIV(AR,AI,BR,BI,CR,CI)
       REAL AR,AI,BR,BI,CR,CI
 C
 C     COMPLEX DIVISION, (CR,CI) = (AR,AI)/(BR,BI)
 C