sourcecodes/bnt-master/BNT/potentials/Tables/mult_by_table_global.m


1
2
3
4
5
6
7

function mult_by_table_global(bigT, bigdom, bigsz, smallT, smalldom, smallsz)

% all arguments are read only
global NEWBIGT_GLOBAL

Ts = extend_domain_table(smallT, smalldom, smallsz, bigdom, bigsz);
NEWBIGT_GLOBAL = bigT(:) .* Ts(:);