separated constant part in module_w_assembly.f90

[wrf-fire-matlab.git] / femwind / big.m

function v=big(A)
% v=big(A)
% max abs element of nD matrix
    v=full(max(abs(A(:))));
end