#-
CF  G,J,H,HH,H2,R,RR,KH;
S   Sinf,ln2,x,y,xdummy,i1;
AutoDeclare Symbol z, e, h, n, x;
Format nospaces;
Off Statistics;
.global
#do WEIGHT = 7,22
Load mzv`WEIGHT'm.sav;
Table,sparse,mzv`WEIGHT'm(`WEIGHT');
TableBase "mzv`WEIGHT'm.tbl" Create;
TableBase "mzv`WEIGHT'm.tbl" Off compress;
L	F = mzv`WEIGHT'me;
B	H;
.sort
FillExpression mzv`WEIGHT'm = F(H);
Delete Storage;
Drop F;
.sort
TableBase "mzv`WEIGHT'm.tbl" AddTo mzv`WEIGHT'm;
.store
#enddo
.end