code 31252;
procedure GSSWTSSYM(N,ZER,C)RESULTS:(W);
value N; integer N;
array ZER,C,W;
begin 
   integer LOW,UP,DUMMY;
   array P[0:N-1];
   LOW:=1; UP:=N;
      for DUMMY:=1
   while LOW < UP do 
      begin integer I; real S;
      ALLORTPOLSYM( N-1,ZER[LOW],C,P );
      S:=P[N-1]**2;
      for I:=N-1 step -1 until 1 do 
         S:=S/C[I] + (P[I-1])**2;
      W[LOW]:=1/S; LOW:=LOW+1; UP:=UP-1;
      end;
   if LOW = UP
   then begin integer TWOI; real S; S:=1.0;
      for TWOI:=N-1 step -2 until 2 do 
         S:=S*C[TWOI-1]/C[TWOI]+1;
      W[LOW]:=1/S;
      end;
end GSSWTSSYM;
        eop