开始学习openmp编程

shirazbj

编译器在这下载：gfortran for window
http://www.equation.com/servlet/equation.cmd?fa=fortran

第1个程序hello.f90

1. program hello
   
2. 
   
3. integer nthreads,tid,omp_get_num_threads,omp_get_thread_num
   
4. 
   
5. !$omp parallel private(tid)
   
6. tid=omp_get_thread_num()
   
7. print*,'hello world from thread=',tid
   
8. if(tid.eq.0) then
   
9.   nthreads=omp_get_num_threads()
   
10.   print*,'number of threads=',nthreads
    
11. end if
    
12. !$omp end parallel
    
13. 
    
14. end

复制代码

编译和运行参见附图

[ 本帖最后由 shirazbj 于 2011-7-21 21:39 编辑 ]

shirazbj

要是有个软件能把自己代码里的do循环自动加!$omp语句并行化就好了。