source: CPL/oasis3-mct/branches/OASIS3-MCT_2.0_branch/lib/mct/mpeu/assertmpeu.H @ 4775

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!       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