code 31097;
procedure COMFOUSER2(N,THETA,AR,AI,RR,RI);
value N,THETA;integer N;real THETA,RR,RI;array AR,AI;
begin real CAR,CAI,SAR,SAI;
   COMFOUSER(N,THETA,AR,CAR,SAR);
   COMFOUSER(N,THETA,AI,CAI,SAI);
   RR:=CAR-SAI;
   RI:=CAI+SAR
end COMFOUSER2;
        eop