allow 2digit values to be read in for MPIE_NUM_THREADS

This commit is contained in:
Christoph Kords 2010-11-25 10:34:55 +00:00
parent 4216a3e066
commit 6b199e7830
1 changed files with 1 additions and 1 deletions

View File

@ -232,7 +232,7 @@ subroutine hypela2(&
defaultNumThreadsInt, & ! default value stored in environment variable OMP_NUM_THREADS defaultNumThreadsInt, & ! default value stored in environment variable OMP_NUM_THREADS
mpieNumThreadsInt ! value stored in environment variable MPIE_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 defaultNumThreadsInt = omp_get_num_threads() ! remember default number of available threads defined by environment variable OMP_NUM_THREADS