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


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

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