#-
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
#ifdef `NUM'
Table,sparse,mzv`WEIGHT'(`WEIGHT');
#include- mzv`WEIGHT'-`NUM'.h
#if `NUM' == 1
TableBase "mzv`WEIGHT'.tbl" Create;
#else
TableBase "mzv`WEIGHT'.tbl" Open;
#endif
.sort
TableBase "mzv`WEIGHT'.tbl" AddTo mzv`WEIGHT';
#else
#call mzv`WEIGHT'
TableBase "mzv`WEIGHT'.tbl" Create;
.sort
TableBase "mzv`WEIGHT'.tbl" AddTo mzv`WEIGHT';
#endif
.end