MAPL_ErrLog.h

! The error logging may eventually evolve into a module based
! on the ESMF logger.  For now these macros provide simple
! traceback capability.

#  ifdef RETURN_
#    undef RETURN_
#  endif
#  ifdef VERIFY_
#    undef VERIFY_
#  endif
#  ifdef ASSERT_
#    undef ASSERT_
#  endif
#  ifdef IGNORE_
#    undef IGNORE_
#  endif
#  ifdef __return
#    undef __return
#  endif

! new
#  ifdef _HERE
#     undef _HERE
#  endif
#  ifdef _RETURN
#    undef _RETURN
#  endif
#  ifdef _RETURN_IF
#    undef _RETURN_IF
#  endif
#  ifdef _RETURN_UNLESS
#    undef _RETURN_UNLESS
#  endif
#  ifdef _VERIFY
#    undef _VERIFY
#  endif
#  ifdef _ASSERT
#    undef _ASSERT
#  endif
#  ifdef _UNUSED_DUMMY
#    undef _UNUSED_DUMMY
#  endif
#  ifdef _FILE_
#    undef _FILE_
#  endif
#  ifdef _RC
#    undef _RC
#  endif
#  ifdef _STAT
#    undef _STAT
#  endif
#  ifdef _IOSTAT
#    undef _IOSTAT
#  endif
#  ifdef _IERROR
#    undef _IERROR
#  endif
#  ifdef __return
#    undef __return
#  endif
#  ifdef __rc
#    undef __rc
#  endif


#  define IGNORE_(a) continue

#  ifdef I_AM_MAIN
#    define __return call MAPL_abort()
#    define __rc(rc)
#  else
#    define __return return
#    define __rc(rc) ,rc
#  endif

#    define _HERE print*,__FILE__,__LINE__

#  ifdef ANSI_CPP

#    define RETURN_(...)   if(MAPL_RTRN(__VA_ARGS__,Iam,__LINE__ __rc(rc))) __return
#    define VERIFY_(...)   if(MAPL_VRFY(__VA_ARGS__,Iam,__LINE__ __rc(rc))) __return
#    define ASSERT_(...)   if(MAPL_ASRT(__VA_ARGS__,Iam,__LINE__ __rc(rc))) __return

#  else

! Old
#    define RETURN_(A)     if(MAPL_RTRN(A,Iam,__LINE__ __rc(rc))) __return
#    define VERIFY_(A)     if(MAPL_VRFY(A,Iam,__LINE__ __rc(rc))) __return
#    define ASSERT_(A)     if(MAPL_ASRT(A,Iam,__LINE__ __rc(rc))) __return

! New
#    define _SUCCESS 0
#    define _FAILURE 1
#    define _UNUSED_DUMMY(x) if (.false.) print*,shape(x)


#    define _FILE_ __FILE__
#    if defined(I_AM_FUNIT)
#       define _VERIFY(A)     call assert_that(A, is(0), SourceLocation(_FILE_,__LINE__));if(anyExceptions())return
#    elif defined(I_AM_PFUNIT)
#       define _VERIFY(A)     call assert_that(A, is(0), SourceLocation(_FILE_,__LINE__));if(anyExceptions(this%context))return
#    else
#       define _RETURN(A)     call MAPL_Return(A,_FILE_,__LINE__ __rc(rc)); __return
#       define _RETURN_IF(cond)     if(cond)then;_RETURN(_SUCCESS);endif
#       define _RETURN_UNLESS(cond)     if(.not.(cond))then;_RETURN(_SUCCESS);endif
#       define _VERIFY(A)     if(MAPL_Verify(A,_FILE_,__LINE__ __rc(rc))) __return
#    endif
#    define _RC_(rc,status) rc=status);_VERIFY(status
#    define _RC _RC_(rc,status)

#    define _STAT _RC_(stat,status)
#if defined(SUPPORT_FOR_MPI_IERROR_KEYWORD)
#    define _IERROR _RC_(ierror,status)
#else
#    define _IERROR _RC_(ierr,status)
#endif
#    define _IOSTAT _RC_(iostat,status)

#    define _ASSERT_MSG_AND_LOC_AND_RC(A,msg,stat,file,line,rc)  if(MAPL_Assert(A,msg,stat,file,line __rc(rc))) __return

! Assumes status is passed back in dummy called "rc"
#    define _ASSERT_MSG_AND_LOC(A,msg,stat,file,line) _ASSERT_MSG_AND_LOC_AND_RC(A,msg,stat,file,line,rc)
! Assumes __FILE__ and __LINE__ are appropriate
#    define _ASSERT(A,msg) _ASSERT_MSG_AND_LOC(A,msg,1,_FILE_,__LINE__)
#    define _ASSERT_RC(A,msg,stat) _ASSERT_MSG_AND_LOC(A,msg,stat,_FILE_,__LINE__)
#    define _ASSERT_NOMSG(A) _ASSERT(A,'needs informative message')
#    define _FAIL(msg) _ASSERT(.false.,msg)

#  endif