subroutine set_xerbla(proc) procedure(xerbla_interface) :: proc xerbla => proc end subroutine set_xerbla