以前のリビジョンの文書です
OpenMPによる並列プログラミングと数値計算法 牛島省(著)を参考に.
program hoge !$ use omp_lib !$OMP parallel default(none) private(j) !$ j=omp_get_num_threads() !$ write(*,*) j !$ j=omp_get_thread_num() !$ write(*,*) j !$ !$OMP end parallel end program hoge