code 31094;
real procedure FOUSER2(N,THETA,A,B);
value N,THETA;integer N;real THETA;array A,B;
begin 
   FOUSER2:=COSSER(N,THETA,A)+SINSER(N,THETA,B);
end FOUSER2

        eop