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

5ce5316a33 2021-03-01    1: procedure scalprod(a,b); begin;
5ce5316a33 2021-03-01    2: scalar n; 
5ce5316a33 2021-03-01    3: n:=first (length(a))-1;
5ce5316a33 2021-03-01    4: result:=for i:=0:n sum a(i)*b(i);
5ce5316a33 2021-03-01    5: return result;
5ce5316a33 2021-03-01    6: end;
5ce5316a33 2021-03-01    7: end;