call mpi_win_call_errhandler( win, newerrclass, ierr )
call mpi_win_call_errhandler( win, code(1), ierr )
call mpi_win_call_errhandler( win, code(2), ierr )
call mpi_win_call_errhandler( win, newerrclass, ierr )
call mpi_win_call_errhandler( win, code(1), ierr )
call mpi_win_call_errhandler( win, code(2), ierr )