From 4ea05ed2d8dcf7919768b75f3b8d5bb0763cdd60 Mon Sep 17 00:00:00 2001 From: eschnett Date: Wed, 7 Mar 2012 19:56:05 +0000 Subject: Limit number of parallel writes to 10 git-svn-id: http://svn.cactuscode.org/arrangements/CactusUtils/Formaline/trunk@218 83718e91-0e4f-0410-abf4-91180603181f --- src/output_source.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/output_source.c b/src/output_source.c index a4ca9c7..31c2d92 100644 --- a/src/output_source.c +++ b/src/output_source.c @@ -34,7 +34,7 @@ Formaline_OutputSource (CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - size_t myproc, nprocs; + size_t myproc, nprocs, nioprocs; char filename [10000]; FILE * file; size_t count; @@ -42,6 +42,7 @@ Formaline_OutputSource (CCTK_ARGUMENTS) myproc = CCTK_MyProc (cctkGH); nprocs = CCTK_nProcs (cctkGH); + nioprocs = nprocs < 10 ? nprocs : 10; { CCTK_PRINTSEPARATOR } CCTK_VInfo (CCTK_THORNSTRING, @@ -55,7 +56,7 @@ Formaline_OutputSource (CCTK_ARGUMENTS) /* Output all thorns' tarballs */ for (count = 0; cactus_source[count]; ++ count) { - if (count % nprocs != myproc) continue; + if (count % nioprocs != myproc) continue; snprintf (filename, sizeof filename, "%s/%s/Cactus-source-%s.tar.gz", -- cgit v1.2.3