From 6b199e7830c02bbb3c0f52fa90d435bb8f6b66d7 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Thu, 25 Nov 2010 10:34:55 +0000 Subject: [PATCH] allow 2digit values to be read in for MPIE_NUM_THREADS --- code/mpie_cpfem_marc.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/mpie_cpfem_marc.f90 b/code/mpie_cpfem_marc.f90 index 6f9d6cc21..dfcd26347 100644 --- a/code/mpie_cpfem_marc.f90 +++ b/code/mpie_cpfem_marc.f90 @@ -232,7 +232,7 @@ subroutine hypela2(& defaultNumThreadsInt, & ! default value stored in environment variable OMP_NUM_THREADS mpieNumThreadsInt ! value stored in environment variable MPIE_NUM_THREADS - character mpieNumThreadsString + character(len=2) mpieNumThreadsString defaultNumThreadsInt = omp_get_num_threads() ! remember default number of available threads defined by environment variable OMP_NUM_THREADS