#ifdef NDEBUG
#  define ASSERT(e)
#else
#  define ASSERT(e) if(.not.(e))call Aass('e',__FILE__,__LINE__)
#endif

#define REQUIRE(e) if(.not.(e))call Aass('e',__FILE__,__LINE__)