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

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