Remove memory type from public interface of streamWriteVarPart.

src/cdi.h

@@ -236,7 +236,7 @@ MPI_Comm pioInit(MPI_Comm commSuper, int nProcsIO, int IOMode,
                  int *pioNamespace, float partInflate);
 void     pioWriteTimestep      ( int, int, int );
 
-void     streamWriteVarPart    (int streamID, int varID, int memtype,
+void     streamWriteVarPart    (int streamID, int varID,
                                 const void *data, int nmiss,
                                 Xt_idxlist partDesc);
 

src/cdi.inc

@@ -397,7 +397,6 @@
 !                     streamWriteVarPart
 !                                    (INTEGER         streamID,
 !                                     INTEGER         varID,
-!                                     INTEGER         memtype,
 !                                     CHOICE          data,
 !                                     INTEGER         nmiss,
 !                                     TYPE(XT_IDXLIST)partDesc)

src/cdiFortran.c

@@ -87,11 +87,11 @@ static int pioInit_fwrap(int commSuper, int nProcsIO, int IOMode, int * pioNames
 }
 FCALLSCFUN5 (INT, pioInit_fwrap, PIOINIT, pioinit, INT, INT, INT, PINT, FLOAT)
 FCALLSCSUB3 (pioWriteTimestep, PIOWRITETIMESTEP, piowritetimestep, INT, INT, INT)
-static void streamWriteVarPart_fwrap(int streamID, int varID, int memtype, const void * data, int nmiss, void * partDesc)
+static void streamWriteVarPart_fwrap(int streamID, int varID, const void * data, int nmiss, void * partDesc)
 {
-  streamWriteVarPart( streamID,  varID,  memtype,  data,  nmiss, (*(Xt_idxlist *)partDesc));
+  streamWriteVarPart( streamID,  varID,  data,  nmiss, (*(Xt_idxlist *)partDesc));
 }
-FCALLSCSUB6 (streamWriteVarPart_fwrap, STREAMWRITEVARPART, streamwritevarpart, INT, INT, INT, PVOID, INT, PVOID)
+FCALLSCSUB5 (streamWriteVarPart_fwrap, STREAMWRITEVARPART, streamwritevarpart, INT, INT, PVOID, INT, PVOID)
 #endif /* make_fint keep */
 FCALLSCFUN2 (INT, pioInqVarDecoChunk, PIOINQVARDECOCHUNK, pioinqvardecochunk, INT, INT)
 FCALLSCFUN2 (INT, pioInqVarDecoOff, PIOINQVARDECOOFF, pioinqvardecooff, INT, INT)

src/pio_interface.c

@@ -993,7 +993,7 @@ void pioWriteTimestep ( int tsID, int vdate, int vtime )
 
 #if defined USE_MPI
 void
-streamWriteVarPart(int streamID, int varID, int memtype, const void *data,
+streamWriteVarPart(int streamID, int varID, const void *data,
                    int nmiss, Xt_idxlist partDesc)
 {
   if ( CDI_Debug ) Message("streamID = %d varID = %d", streamID, varID);