ESMF_TraceTest_CheckMPIRegion Subroutine

  subroutine ESMF_TraceTest_CheckMPIRegion(name, exists, rc)
! !ARGUMENTS: 
    character(len=*), intent(in)       :: name
    integer, intent(out)               :: exists
    integer, intent(out), optional     :: rc
!
!EOPI
!-------------------------------------------------------------------------------

    if (present(rc)) rc = ESMF_SUCCESS 
    call c_esmftracetest_checkmpiregion(name, exists)
    
  end subroutine ESMF_TraceTest_CheckMPIRegion