OMP_SET_NUM_THREADS in a conditional statement?
807575Jul 1 2008 — edited Jul 3 2008I am having problems using OMP_SET_NUM_THREADS in a conditional statement. For example a code like following will make the program to hang indefinitely after starting to execute a parallel DO loop:
if(mybool.eq.0) then
call OMP_SET_NUM_THREADS(iprocessors)
else
call OMP_SET_NUM_THREADS(1)
endif
Is there a problem using this function in conditional statements?
I am using Forte Studio 7 under Solaris 8 and 10 (I know that it is old but for the moment this is what I have to use...).
Thanks,
Rak