wolffd@0: function mult_by_table_global(bigT, bigdom, bigsz, smallT, smalldom, smallsz)
wolffd@0: 
wolffd@0: % all arguments are read only
wolffd@0: global NEWBIGT_GLOBAL
wolffd@0: 
wolffd@0: Ts = extend_domain_table(smallT, smalldom, smallsz, bigdom, bigsz);
wolffd@0: NEWBIGT_GLOBAL = bigT(:) .* Ts(:);