N=moonaddn(N,COEFFN,P,Q,R,S,CO,SI)

function N=moonaddn(N,COEFFN,P,Q,R,S,CO,SI)

% function N=moonaddn(N,COEFFN,P,Q,R,S,CO,SI)
%
% subroutine of function moon
% algorithms by Montenbruck/Pfleger: "Astronomy with the Personal Computer"
%
% 05.05.04 M.Penzkofer

[x,y] = moonterm(P,Q,R,S,CO,SI);
N = N+COEFFN*y;