home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG083.ARK / DIVCOM.SRT < prev    next >
Text File  |  1984-04-29  |  195b  |  9 lines
  1. 104.100 REM ***********DIVCOM***********
  2.     A=TEMP.REAL : B=TEMP.IMAG
  3.     C=TEMP1.REAL : D=TEMP1.IMAG
  4.     E=C*C+D*D
  5.     IF E<1E-12 THEN E=1E-12
  6.     TEMP.REAL=(A*C+B*D)/E
  7.     TEMP.IMAG=(B*C-A*D)/E
  8.     RETURN
  9.