if (dExp < 0)
                        dErgebnis = 1.0 / dErgebnis;
                else
                       for (i = 1; i <= fabs (dExp); i++)
                        dErgebnis = dErgebnis * dBasis;