OMP_GET_THREAD_NUM() returns NaN

[anishtain4]

I was working with OpenMP sometimes ago and it was working good, today when I wanted to check something back this function returns NaN value!! even a hello project gets like it:

[bash]program test

I=10
!$OMP PARALLEL NUM_THREADS(5)
  PRINT*,I,OMP_GET_THREAD_NUM()
!$OMP END PARALLEL

END PROGRAM test[/bash]

it prints five time "10 Nan" what can be wrong? any probability some files got damaged? Fix option didn't work

[TimP · Accepted solution]

You need
USE omp_lib

You can't get away with allowing default data typing into this.

[anishtain4]

Yeah that`s it, Thank youuuu

[mecej4]

According to the implicit typing rules of Fortran, a variable/function starting with (A-H, O-Z) is of type real. Thus, the integer result returned by the function is being interpreted as an IEEE real, which produces the NaNs that you saw.

Either USE the OMP module as TimP told you, or declare OMP_GET_THREAD_NUM as INTEGER.