code 31050;
procedure NEWGRN(N,X,A);
value N; integer N; array X,A;
begin 
    integer K;
    for K:=N-1 step -1 until 0 do 
    ELMVEC(K,N-1,1,A,A,-X[K]);
end NEWGRN;
        eop