Cleaning up files to get ready to push bug fix changes.

src/clib/pio_darray.c

@@ -102,8 +102,6 @@ void compute_buffer_init(iosystem_desc_t ios)
    ndims = iodesc->ndims;
    msg = 0;
 
-   printf("PIO_WRITE_DARRAY_NC %s %d \n",__FILE__,__LINE__);
-
    if(ios->async_interface && ! ios->ioproc){
      if(ios->comp_rank==0) 
        mpierr = MPI_Send(&msg, 1,MPI_INT, ios->ioroot, 1, ios->union_comm);
@@ -372,8 +370,6 @@ int pio_write_darray_multi_nc(file_desc_t *file, const int nvars, const int vid[
    }
    msg = 0;
 
-   printf("PIO_WRITE_DARRAY_MULTI_NC %s %d \n",__FILE__,__LINE__);
-
    if(ios->async_interface && ! ios->ioproc){
      if(ios->comp_rank==0) 
        mpierr = MPI_Send(&msg, 1,MPI_INT, ios->ioroot, 1, ios->union_comm);
@@ -644,8 +640,6 @@ int PIOc_write_darray_multi(const int ncid, const int vid[], const int ioid, con
      return PIO_EBADID;
    }
 
-   printf("PIOc_WRITE_DARRAY_MULTI %s %d \n",__FILE__,__LINE__);
-
    vdesc0 = file->varlist+vid[0];
 
    pioassert(nvars>0,"nvars <= 0",__FILE__,__LINE__);
@@ -781,8 +775,6 @@ int PIOc_write_darray_multi(const int ncid, const int vid[], const int ioid, con
    }
    ios = file->iosystem;
 
-   printf("PIOc_WRITE_DARRAY buffer %s %d \n",__FILE__,__LINE__);
-
   vdesc = (file->varlist)+vid;
   if(vdesc == NULL)
     return PIO_EBADID;
@@ -978,8 +970,6 @@ int PIOc_write_darray_multi(const int ncid, const int vid[], const int ioid, con
    }
    iobuf = NULL;
 
-   printf("PIOc_WRITE_DARRAY no buf %s %d \n",__FILE__,__LINE__);
-
    ios = file->iosystem;
 
    rlen = iodesc->llen;

src/flib/piodarray.F90.in

@@ -314,6 +314,7 @@ contains
 #if (__GFORTRAN__) &&  (__GNUC__ == 4) && (__GNUC_MINOR__ < 8)
     {VTYPE}, allocatable :: acopy(:)
     integer :: isize
+
     isize= size(array)
     allocate(acopy(isize))
     acopy = reshape(array,(/isize/))

tests/performance/pioperformance.F90

@@ -1,7 +1,6 @@
 #define VARINT 1 
 #define VARREAL 1
 #define VARDOUBLE 1
-#define DEBUG 1
 
 program pioperformance
 #ifndef NO_MPIMOD