45   int i, j, k, N_restart_integer, N_restart_double;  in main()  local
144     for ( i = 0; i < N_restart_double; i++ )  in main()
146 	WriteLockD[i]=0;  in main()
147 	Dfield[i] = new double*[nppp];  in main()
149 	paraD[i] = new int*[nppp];  in main()
151 	fieldNameD[i] = new char[128];  in main()
152 	fileTypeD[i] = new char[128];  in main()
153 	dataTypeD[i] = new char[128];  in main()
154 	headerTypeD[i] = new char[128];  in main()
158     for ( i = 0; i < N_restart_integer; i++ )  in main()
160 	WriteLockI[i]=0;  in main()
161 	Ifield[i] = new int*[nppp];  in main()
163 	paraI[i] = new int*[nppp];  in main()
165 	fieldNameI[i] = new char[128];  in main()
166 	fileTypeI[i] = new char[128];  in main()
167 	dataTypeI[i] = new char[128];  in main()
168 	headerTypeI[i] = new char[128];  in main()
190   for ( i = 0; i < N_restart_double; i++ )  in main()
195       strcpy( fileTypeD[i], token );  in main()
197       strcpy( fieldNameD[i], token );  in main()
199       strcpy( dataTypeD[i], token );  in main()
201       strcpy( headerTypeD[i], token );  in main()
204       expectD[i] = atoi (numTemp);  in main()
208 	  paraD[i][j] = new int[expectD[i]];  in main()
215 	  sprintf(fieldtag,"%s@%d",fieldNameD[i],GPID);  in main()
223 		       &expectD[i],  in main()
228 	      WriteLockD[i]=1;  in main()
229 	  if ( WriteLockD[i]==0 )  in main()
231 	      for ( k = 0; k < expectD[i]; k++ )  in main()
232 		paraD[i][j][k] = iarray[k];  in main()
234 	      if ( cscompare("block",headerTypeD[i]) )  in main()
236 		  if ( expectD[i]==1)  in main()
237 		    isize = paraD[i][j][0];  in main()
239 		    isize = paraD[i][j][0] * paraD[i][j][1];  in main()
241 		  Dfield[i][j] = new double[isize];  in main()
244 				  (void*)Dfield[i][j],  in main()
254   for ( i = 0; i < N_restart_integer; i++ )  in main()
259       strcpy( fileTypeI[i], token );  in main()
261       strcpy( fieldNameI[i], token );  in main()
263       strcpy( dataTypeI[i], token );  in main()
265       strcpy( headerTypeI[i], token );  in main()
268       expectI[i] = atoi (numTemp);  in main()
272 	  paraI[i][j] = new int[expectI[i]];  in main()
279 	  sprintf(fieldtag,"%s@%d",fieldNameI[i],GPID);  in main()
287 		       &expectI[i],  in main()
292 	      WriteLockI[i]=1;  in main()
293 	  if ( WriteLockI[i]==0 )  in main()
295 	      for ( k = 0; k < expectI[i]; k++ )  in main()
296 		paraI[i][j][k] = iarray[k];  in main()
298 	      if ( cscompare("block",headerTypeI[i]) )  in main()
300 		  if ( expectI[i]==1)  in main()
301 		    isize = paraI[i][j][0];  in main()
303 		    isize = paraI[i][j][0] * paraI[i][j][1];  in main()
305 		  Ifield[i][j] = new int[isize];  in main()
308 				  (void*)Ifield[i][j],  in main()
361   for ( i = 0; i < N_restart_double; i++ )  in main()
365 	  if ( WriteLockD[i] == 0 )  in main()
367 	      if ( cscompare("header",headerTypeD[i]) )  in main()
370 		  sprintf(fname,"%s : < 0 > %d\n", fieldNameD[i],paraD[i][j][0]);  in main()
374 	      if ( cscompare("block",headerTypeD[i]) )  in main()
376 		  if ( expectD[i]==1 )  in main()
377 		    isize = paraD[i][j][0];  in main()
379 		    isize = paraD[i][j][0] * paraD[i][j][1];  in main()
381 		  for ( k = 0; k < expectD[i]; k++ )  in main()
382 		    iarray[k] = paraD[i][j][k];  in main()
384 		  if ( cscompare("header",headerTypeD[i]) )  in main()
388 				fieldNameD[i],  in main()
390 				&expectD[i],  in main()
395 				   fieldNameD[i],  in main()
396 				   (void*)Dfield[i][j],  in main()
403               if ( cscompare("block",headerTypeD[i]) )  in main()
404                 delete [] Dfield[i][j];  in main()
406 	  delete [] paraD[i][j];  in main()
410   for ( i = 0; i < N_restart_integer; i++ )  in main()
415 	  if ( WriteLockI[i] == 0 )  in main()
418 	      if ( cscompare("header",headerTypeI[i]) )  in main()
421 		  sprintf(fname,"%s : < 0 > %d\n", fieldNameI[i],paraI[i][j][0]);  in main()
425 	      if ( cscompare("block",headerTypeI[i]) )  in main()
427 		  if ( expectI[i]==1 )  in main()
428 		    isize = paraI[i][j][0];  in main()
430 		    isize = paraI[i][j][0] * paraI[i][j][1];  in main()
432 		  for ( k = 0; k < expectI[i]; k++ )  in main()
433 		    iarray[k] = paraI[i][j][k];  in main()
436 				fieldNameI[i],  in main()
438 				&expectI[i],  in main()
443 				   fieldNameI[i],  in main()
444 				   (void*)Ifield[i][j],  in main()
450               if ( cscompare("block",headerTypeI[i]) )  in main()
451                 delete [] Ifield[i][j];  in main()
453 	  delete [] paraI[i][j];  in main()
463     for ( i = 0; i < N_restart_double; i++ )  in main()
465 	delete [] Dfield[i];  in main()
466 	delete [] paraD[i];  in main()
468 	delete [] fieldNameD[i];  in main()
469 	delete [] fileTypeD[i];  in main()
470 	delete [] dataTypeD[i];  in main()
471 	delete [] headerTypeD[i];  in main()
475     for ( i = 0; i < N_restart_integer; i++ )  in main()
477 	delete [] Ifield[i];  in main()
478 	delete [] paraI[i];  in main()
480 	delete [] fieldNameI[i];  in main()
481 	delete [] fileTypeI[i];  in main()
482 	delete [] dataTypeI[i];  in main()
483 	delete [] headerTypeI[i];  in main()