Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | status | |||
character(len=*), | intent(in) | :: | filename | |||
integer, | intent(in) | :: | line | |||
integer, | intent(out), | optional | :: | rc |
logical function MAPL_Verify(status, filename, line, rc) result(fail) integer, intent(in) :: status character(*), intent(in) :: filename integer, intent(in) :: line integer, optional, intent(out) :: rc ! Not present in MAIN logical :: condition character(:), allocatable :: message character(16) :: status_string condition = (status == 0) fail = .not. condition if (fail) then write(status_string,'(i0)') status message = 'status=' // trim(status_string) !$omp critical (MAPL_ErrorHandling3) call MAPL_throw_exception(filename, line, message=message) !$omp end critical (MAPL_ErrorHandling3) if (present(rc)) rc = status end if end function MAPL_Verify