Specifications

604 Appendix E
Complex Operation Programs
Complex Operation Programs
320 SUBEND
330 !
340 ! Dividing Complex Arrays
350 !
360 SUB Complex_div(A(*),B(*),C(*),Nop)
370 INTEGER I
380 REAL De
390 FOR I=1 TO Nop
400 De=(B(I,1)^2-B(I,2)^2)
410 IF De=0 THEN Err
420 C(I,1)=(A(I,1)*B(I,1)+A(I,2)*B(I,2))/De
430 C(I,2)=(A(I,2)*B(I,1)-A(I,1)*B(I,2))/De
440 NEXT I
450 GOTO Ext
460 Err: DISP "DIVISION BY 0"
470 Ext: !
480 SUBEND