Mercurial > repos > public > sbplib

view default_struct.m @ 742:08f3ffe63f48 feature/poroelastic Heimisson2018 elastic1.0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add metric scale factors to properties in heat and elastic curvilinear
author Martin Almquist <malmquist@stanford.edu>
date Fri, 11 May 2018 13:11:32 -0700
parents 46256fffa329
children
line wrap: on
line source

function default_struct(s, val)
    if evalin('caller',sprintf('~exist(''%s'',''var'')',s))
        given = [];
    else
        given = evalin('caller', s);
    end

    final = copyWithDefault(given, val);
    assignin('caller', s, final);
end