Index: src/libcfa/math
===================================================================
--- src/libcfa/math	(revision dab7ac792024c4767a55726e396c9df595df6da0)
+++ src/libcfa/math	(revision 33218c6845f9825be5a63043ef89bb8a0a80d009)
@@ -10,6 +10,6 @@
 // Created On       : Mon Apr 18 23:37:04 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Jul 20 21:45:07 2017
-// Update Count     : 77
+// Last Modified On : Fri Jul 21 17:03:13 2017
+// Update Count     : 101
 //
 
@@ -83,42 +83,4 @@
 static inline double _Complex pow( double _Complex x, double _Complex y ) { return cpow( x, y ); }
 static inline long double _Complex pow( long double _Complex x, long double _Complex y ) { return cpowl( x, y ); }
-
-static inline float ?\?( float x, float y ) { return powf( x, y ); }
-static inline double ?\?( double x, double y ) { return pow( x, y ); }
-static inline long double ?\?( long double x, long double y ) { return powl( x, y ); }
-static inline float _Complex ?\?( float _Complex x, _Complex float y ) { return cpowf(x, y ); }
-static inline double _Complex ?\?( double _Complex x, _Complex double y ) { return cpow( x, y ); }
-static inline long double _Complex ?\?( long double _Complex x, _Complex long double y ) { return cpowl( x, y ); }
-
-static inline float ?\=?( float * x, float y ) { *x = *x \ y; return *x; }
-static inline double ?\=?( double * x, double y ) { *x = *x \ y; return *x; }
-static inline long double ?\=?( long double * x, long double y ) { *x = *x \ y; return *x; }
-static inline float _Complex ?\=?( float _Complex * x, _Complex float y ) { *x = *x \ y; return *x; }
-static inline double _Complex ?\=?( double _Complex * x, _Complex double y ) { *x = *x \ y; return *x; }
-static inline long double _Complex ?\=?( long double _Complex * x, _Complex long double y ) { *x = *x \ y; return *x; }
-
-static inline long int ?\?( long int x, unsigned long y ) {	// disallow negative exponent
-    if ( y == 0 ) return 1;
-    if ( x == 2 ) return x << (y - 1);
-    long int prod = 1;
-    for ( unsigned int i = 0; i < y; i += 1 ) {
-		prod = prod * x;
-    } // for
-    return prod;
-}
-static inline double ?\?( long int x, signed long y ) {	// allow negative exponent
-    if ( y >=  0 ) return (double)(x \ (unsigned int)y);
-    else return 1.0 / x \ (unsigned int)(-y);
-}
-static inline forall( otype T | { void ?{}( T * this, one_t ); T ?*?( T, T ); } )
-T ?\?( T x, unsigned long y ) {
-    T prod = 1;
-    for ( unsigned int i = 1; i < y; i += 1 ) {
-		prod = prod * x;
-    } // for
-    return prod;
-}
-static inline long int ?\=?( long int * x, unsigned long y ) { *x = *x \ y; return *x; }
-static inline int ?\=?( int * x, unsigned long y ) { *x = *x \ y; return *x; }
 
 //---------------------- Logarithm ----------------------