multithreading - omp_get_num_threads() y omp_get_thread_num() devolviendo tonterías

visual-studio-2015 fortran

Question

Estoy comenzando a usar OpenMP en Fortran usando el compilador Fortran de Intel y Visual Studio 2015. En las propiedades del proyecto tengo "Fortran -> Idioma -> Directivas OpenMP de proceso" establecido en "Generar código paralelo (/ Qopenmp)"

Tengo un programa simple que comienza de la siguiente manera:

program hellothreads
integer threads, id
call omp_set_num_threads(3)
threads = omp_get_num_threads()
print *,"there are", threads, "threads"

Esto produce

hay -2147483648 hilos

que ciertamente no hay. Sin embargo, la configuración de la cantidad de hilos parece funcionar bien, ya que:

 !$OMP Parallel private(id) shared(threads)
threads = omp_get_num_threads()
id = omp_get_thread_num()
print *, "hello from thread", id, "out of", threads
!$OMP end Parallel

salidas

hola del hilo -2147483648 de -2147483648

hola del hilo -2147483648 de -2147483648

hola del hilo -2147483648 de -2147483648

y continuando con:

 !$OMP Parallel private(id) shared(threads)
threads = omp_get_num_threads()
id = omp_get_thread_num()
print *, "this is thread", id, "of", threads
!$OMP end Parallel

salidas

este es el hilo -2147483648 de -2147483648

este es el hilo -2147483648 de -2147483648

Finalmente, hay un comportamiento extraño diferente si llamo a las funciones de OpenMP dentro de una "impresión", por ejemplo:

 !$OMP Parallel private(id) shared(threads)
print *, "this is thread", omp_get_num_threads(), "of", omp_get_thread_num()
!$OMP end Parallel
stop
end

Salidas

este es el hilo NaN de NaN

este es el hilo NaN de NaN

¿Qué está mal con mi configuración y / o código?

Answer 1

¡Use implicit none en TODOS sus programas Fortran!

Después de hacerlo, se dará cuenta de que las funciones no se declaran y se supone que son real . El valor real sin sentido se convierte en un valor integer y se almacena en las variables que imprime.

Como @francescalus recomienda en el comentario, mediante el use omp_lib utiliza un módulo que contiene las declaraciones correctas de las funciones y lo ayudará a verificar si las está utilizando correctamente.