call mpi_comm_call_errhandler( comm, newerrclass, ierr )
call mpi_comm_call_errhandler( comm, code(1), ierr )
call mpi_comm_call_errhandler( comm, code(2), ierr )
call mpi_comm_call_errhandler( comm, newerrclass, ierr )
call mpi_comm_call_errhandler( comm, code(1), ierr )
call mpi_comm_call_errhandler( comm, code(2), ierr )