Hello,

According to my understanding of the documentation, it should be possible to set the default error handler for files with MPI_FILE_SET_ERRHANDLER. However, the following small Fortran77 program fails, MPI_FILE_SET_ERRHANDLER returns an error.

=================================

      PROGRAM H2D2_MAIN

      INCLUDE 'mpif.h'

      EXTERNAL HNDLR

C------------------------------------------------------------------------

      CALL MPI_INIT(I_ERR)

      I_HDLR = 0

      CALL MPI_FILE_CREATE_ERRHANDLER(HNDLR1, I_HDLR, I_ERR)

      WRITE(*,*) 'MPI_FILE_CREATE_ERRHANDLER: ', I_ERR

      CALL MPI_FILE_SET_ERRHANDLER   (MPI_FILE_NULL, I_HDLR, I_ERR)

      WRITE(*,*) 'MPI_FILE_SET_ERRHANDLER: ', I_ERR

      END

      SUBROUTINE HNDLR(I_CNTX, I_ERR)

      WRITE(*,*) 'In HNDLR: MPI Error detected'

      RETURN

      END

============================

Did I miss something obvious?

Regards

Yves Secretan

Professeur

Yves.Secretan@ete.inrs.ca

 Avant d'imprimer, pensez à l'environnement