"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"