levopt function

Returns the level given the p-value computed with pbaluev (2008). Copied from the LOMB library.