/**
/** location: /home/runner/work/docs/docs/ug4/apps/poroelasticity/scripts / ootools.lua :31-48
References if(), and while().