MPI_Info in pnetcdf

[Wei-keng Liao]

Pnetcdf seems to assume that data type of MPI_Info is int,
which is OK if pnetcdf is built on top of MPICH2 (MPICH2
type-defines MPI_Info as int.)

But MPI_Info is defined differently in MPICH1 as
     typedef struct MPIR_Info *MPI_Info;

So, when I ran the codes below using MPICH1, I got a seg fault.

Wei-keng

---------------------------------------------------------------
% cat pnf_test.f90
program pnf_test
   implicit none
   include 'mpif.h'
# include "pnetcdf.inc"

   integer ierr, info, ncid

   call MPI_Init(ierr)

   call MPI_Info_create(info, ierr)
   call MPI_Info_set(info, 'cb_buffer_size', '1048576', ierr)

   ierr = nfmpi_create(MPI_COMM_WORLD, 'testfile.nc', &
                       NF_CLOBBER, info, ncid)
   ierr = nfmpi_enddef(ncid)
   ierr = nfmpi_close(ncid)

   call MPI_Info_free(info, ierr)
   call MPI_Finalize(ierr)
end program pnf_test