I'm trying out the async interface and running into problems. <br>The following code snippet writes the expected output to the file in the case when ASYNC_PNETCDF is not defined,<br>but when it is defined the first two values in the array are not written (0's appear in the file) the file is otherwise correct.<br>
I am calling nfmpi_wait_all prior to closing the file and status is returning 0. <br>I've tried repository tag 821 (1.1.1 based ) and 913 (1.2.0 based) I get the same result in both cases. <br><br>integer :: fh, varid<br>
integer(kind=MPI_OFFSET) :: start(:), count(:)<br>double :: iobuf(:)<br>integer :: req<br><br><br><br>#ifdef ASYNC_PNETCDF<br> print *,__FILE__,__LINE__,iobuf(1:3)<br> ierr=nfmpi_iput_vara_double ( fh,varid,start, &<br>
count,IOBUF, req)<br> <br>#else <br> ierr=nfmpi_put_vara_all( fh,varid,start, &<br> count,IOBUF, &<br> n_ElemTYPE, &<br> ElemTYPE)<br>
<br>#endif<br>