Origin for each line in src/scalprod.red from check-in 5ce5316a33:

5ce5316a33 2021-03-01 jeff@gridfini: procedure scalprod(a,b); begin;
5ce5316a33 2021-03-01 jeff@gridfini: scalar n; 
5ce5316a33 2021-03-01 jeff@gridfini: n:=first (length(a))-1;
5ce5316a33 2021-03-01 jeff@gridfini: result:=for i:=0:n sum a(i)*b(i);
5ce5316a33 2021-03-01 jeff@gridfini: return result;
5ce5316a33 2021-03-01 jeff@gridfini: end;
5ce5316a33 2021-03-01 jeff@gridfini: end;