(1) program test1
c!$ use omp_lib
INTEGER TID,OMP_GET_THREAD_NUM
!$omp parallel private(i)
TID=OMP_GET_THREAD_NUM()
print *,'threadid:',TID
!$omp end parallel
end
若是不声明OMP_GET_THREAD_NUM，OMP_GET_NUM_THREADS那么不会得到正确的线程号和总线程数。
原因:??????
(2) 但是如果在开头使用"use omp_lib"，则不需要声明。
但是在某些程序中还是得到 线程数 线程号为浮点数的现象
？？？？？？
原因：子程序里面没有重复声明use omp_lib.