implicit none

#     include "mpif.h"
#     include "pnetcdf.inc"

      integer, parameter :: TOTSIZ = 10

      integer :: dim1_id
      integer :: ierr
      integer :: ncid
      integer :: var_id

      integer :: dim_id(1)


      call MPI_Init (ierr)

      call nfmpi_create (MPI_COMM_WORLD, "pnf_test.nc", NF_CLOBBER,
     &                   MPI_INFO_NULL, ncid, ierr)

      call nfmpi_def_dim (ncid, "dim1", TOTSIZ, dim1_id, ierr)

      dim_id(1) = dim1_id

      call nfmpi_def_var
     &  (ncid, "var1", NF_FLOAT, 1, dim_id, var_id, ierr)

      call nfmpi_enddef (ncid, ierr)

      call nfmpi_close (ncid, ierr)

      call MPI_Finalize  (ierr)


      stop

      end