Convert only temporarily used variable startTime into automatic storage.

src/pio.c

@@ -24,7 +24,6 @@ long initial_buffersize = 16 * 1024 * 1024;
 int tagKey = 100;
 int maxErrorString = 100;
 
-double startTime;
 double accumProbe   = 0.0;
 double accumRecv    = 0.0;
 double accumSend    = 0.0;

src/pio_mpinonb.c

@@ -19,7 +19,6 @@ extern char * command2charP[6];
 extern long initial_buffersize;
 extern int maxErrorString;
 
-extern double startTime;
 extern double accumProbe;
 extern double accumRecv;
 extern double accumSend;
@@ -89,6 +88,7 @@ int destroyAFiledataMPINONB ( void *v )
   aFiledataM *of;
   MPI_Status status;
   int rankNode = commInqRankNode ();
+  double startTime;
 
   of = (aFiledataM * ) v;
 

src/pio_posixasynch.c

@@ -33,7 +33,6 @@ extern long initial_buffersize;
 extern char *token;
 extern int maxErrorString; 
 
-extern double startTime;
 extern double accumProbe;
 extern double accumRecv;
 extern double accumSend;
@@ -192,6 +191,7 @@ int destroyBFiledataPA ( void *v )
   ssize_t ssiret;
   int nextFinishOp = (bfd->nextOpIndex - bfd->prefIndex + nPrefStreams)
     % nPrefStreams;
+  double startTime;
 
   xdebug ( "filename=%s, cleanup and close file", bfd->name );
 
@@ -282,6 +282,7 @@ writePA(bFiledataPA *bfd, long amount)
 {
   const struct aiocb *ccBP[1];
   int iret;
+  double startTime;
 
   xdebug ( "file %s, in", bfd->name );
   
@@ -555,6 +556,7 @@ sendPA(aFiledataPA *afd, int id)
   int tag;
   long amount;
   MPI_Status status;
+  double startTime;
 
   amount = ( long ) dbuffer_data_size ( afd->db );
   tag = setTag ( id, afd->command );

src/pio_posixfpguardsendrecv.c

@@ -26,7 +26,6 @@ extern char * command2charP[6];
 extern long initial_buffersize;
 extern int maxErrorString;
 
-extern double startTime;
 extern double accumProbe;
 extern double accumRecv;
 extern double accumSend;

src/pio_posixnonb.c

@@ -21,7 +21,6 @@ extern long initial_buffersize;
 extern char *token;
 extern int maxErrorString; 
 
-extern double startTime;
 extern double accumProbe;
 extern double accumRecv;
 extern double accumSend;
@@ -459,6 +458,7 @@ sendP(aFiledataP *afd, int id)
   int tag;
   size_t amount;
   MPI_Status status;
+  double startTime;
 
   amount = dbuffer_data_size ( afd->db );
   tag = setTag ( id, afd->command );