PROGRAM HelloWorld2OpenMP INTEGER :: threadNUM, OMP_GET_THREAD_NUM !$OMP PARALLEL PRIVATE(threadNUM) threadNUM = OMP_GET_THREAD_NUM() PRINT*, "Hello World!", threadNUM !$OMP END PARALLEL END PROGRAM HelloWorld2OpenMP