From 499ffef6f5f70c1f639945ebc4c5cf44bcbf86ec Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Tue, 19 Feb 2008 05:20:00 +0000 Subject: CarpetIOScalar: Keep I/O statistics as CCTK_REALs darcs-hash:20080219052005-dae7b-42a0027084f2e29d4e905d18737c6d84cad541b1.gz --- Carpet/CarpetIOScalar/src/ioscalar.cc | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'Carpet/CarpetIOScalar') diff --git a/Carpet/CarpetIOScalar/src/ioscalar.cc b/Carpet/CarpetIOScalar/src/ioscalar.cc index d637b1f66..5e8bdfa51 100644 --- a/Carpet/CarpetIOScalar/src/ioscalar.cc +++ b/Carpet/CarpetIOScalar/src/ioscalar.cc @@ -266,8 +266,8 @@ namespace CarpetIOScalar { fstream file; BeginTimingIO (cctkGH); - long long io_files = 0; - long long io_bytes_begin = 0, io_bytes_end = 0; + CCTK_REAL io_files = 0; + CCTK_REAL io_bytes_begin = 0, io_bytes_end = 0; if (CCTK_MyProc(cctkGH)==0) { // Invent a file name @@ -440,10 +440,12 @@ namespace CarpetIOScalar { assert (! file.is_open()); - long long io_bytes = io_bytes_end - io_bytes_begin; + CCTK_REAL const io_bytes = io_bytes_end - io_bytes_begin; +#if 0 // Broadcast I/O size and synchronise processes - MPI_Bcast (& io_files, 1, MPI_LONG_LONG, 0, dist::comm()); - MPI_Bcast (& io_bytes, 1, MPI_LONG_LONG, 0, dist::comm()); + MPI_Bcast (& io_files, 1, dist::datatype (io_files), 0, dist::comm()); + MPI_Bcast (& io_bytes, 1, dist::datatype (io_bytes), 0, dist::comm()); +#endif EndTimingIO (cctkGH, io_files, io_bytes, false); } // for reductions -- cgit v1.2.3