| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455 |
- !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- ! NASA/GSFC, Data Assimilation Office, Code 910.3, GEOS/DAS !
- !-----------------------------------------------------------------------
- ! CVS assertmpeu.H,v 1.2 2007-08-17 20:44:17 jacob Exp
- ! CVS MCT_2_8_0
- !BOP -------------------------------------------------------------------
- !
- ! !MODULE: assertmpeu.H - an #include section of ASSERT() macro for Fortran
- !
- ! !DESCRIPTION:
- !
- ! !INTERFACE:
- !
- ! #define NDEBUG
- ! #include "assertmpeu.H"
- ! ...
- ! use m_die,only : assert_
- ! ...
- ! ASSERT( <Fortran expression> )
- ! ALWAYS_ASSERT( <Fortran expression> )
- !
- ! !BUGS
- ! This macro requires Fortran friendly cpp() for macro processing.
- !
- ! !REVISION HISTORY:
- ! 17Aug07 - R. Jacob <jacob@mcs.anl.gov> - renamed from assert.H to
- ! prevent namespace collision with assert.h on Mac
- ! 28Aug00 - Jing Guo <guo@dao.gsfc.nasa.gov>
- ! - modified
- ! - added the prolog for a brief documentation
- ! before - Tom Clune
- ! - Created for MP PSAS
- !EOP ___________________________________________________________________
- ! This implementation allows multi-"#include" in a single file
- #ifndef ALWAYS_ASSERT
- #define ALWAYS_ASSERT(EX) If (.not. (EX) ) call assert_("EX",__FILE__,__LINE__)
- #endif
- #ifndef ASSERT
- #ifdef NDEBUG
- #define ASSERT(EX) ! Skip assertion: EX
- #else
- #define ASSERT(EX) ALWAYS_ASSERT(EX)
- #endif
- #endif
|
