Move streamWriteVarPart to pio_interface.c.

src/pio_interface.c

@@ -28,7 +28,6 @@
 #include "cdi_int.h"
 #include "vlist.h"
 
-
 extern resOps streamOps;
 
 
@@ -991,6 +990,37 @@ void pioWriteTimestep ( int tsID, int vdate, int vtime )
 
 #endif
 }
+
+#if defined USE_MPI
+void
+streamWriteVarPart(int streamID, int varID, int memtype, const void *data,
+                   int nmiss, Xt_idxlist partDesc)
+{
+  if ( CDI_Debug ) Message("streamID = %d varID = %d", streamID, varID);
+
+  check_parg(data);
+
+  if (namespaceHasLocalFile(namespaceGetActive ()))
+      xabort("local part writing is unsupported!");
+
+  switch (namespaceInqResStatus())
+    {
+    case STAGE_DEFINITION:
+      xabort("DEFINITION STAGE: PARALLEL WRITING NOT POSSIBLE.");
+      break;
+    case STAGE_TIMELOOP:
+      pioBufferPartData(streamID, varID, data, nmiss, partDesc);
+      return;
+    case STAGE_CLEANUP:
+      xabort("CLEANUP STAGE: PARALLEL WRITING NOT POSSIBLE.");
+      break;
+    default:
+      xabort("INTERNAL ERROR");
+    }
+}
+#endif
+
+
 /*
  * Local Variables:
  * c-file-style: "Java"

src/stream.c

@@ -31,13 +31,6 @@
 
 #include <string.h>
 
-#ifdef USE_MPI
-#include <yaxt.h>
-#else
-typedef struct Xt_idxlist_ *Xt_idxlist;
-#endif
-
-
 #define  MAX_FNAMES  3
 
 extern resOps streamOps;
@@ -1670,35 +1663,6 @@ cdiStreamWriteVar_(int streamID, int varID, int memtype, const void *data,
     }
 }
 
-void
-streamWriteVarPart(int streamID, int varID, int memtype, const void *data,
-                   int nmiss, Xt_idxlist partDesc)
-{
-#if defined USE_MPI
-  if ( CDI_Debug ) Message("streamID = %d varID = %d", streamID, varID);
-
-  check_parg(data);
-
-  if (namespaceHasLocalFile(namespaceGetActive ()))
-      xabort("local part writing is unsupported!");
-
-  switch (namespaceInqResStatus())
-    {
-    case STAGE_DEFINITION:
-      xabort("DEFINITION STAGE: PARALLEL WRITING NOT POSSIBLE.");
-      break;
-    case STAGE_TIMELOOP:
-      pioBufferPartData(streamID, varID, data, nmiss, partDesc);
-      return;
-    case STAGE_CLEANUP:
-      xabort("CLEANUP STAGE: PARALLEL WRITING NOT POSSIBLE.");
-      break;
-    default:
-      xabort("INTERNAL ERROR");
-    }
-#endif
-}
-
 /*
 @Function  streamWriteVarF
 @Title     Write a variable