Fortran：openmp笔记2

最新推荐文章于 2021-03-24 17:51:40 发布

chder_白南

最新推荐文章于 2021-03-24 17:51:40 发布

阅读量880

点赞数

分类专栏： openmp Fortran OpenMp 文章标签： fortran_openmp

本文链接：https://blog.csdn.net/chd_lkl/article/details/82315924

版权

Fortran OpenMp 同时被 2 个专栏收录

33 篇文章 31 订阅

订阅专栏

openmp

31 篇文章 8 订阅

订阅专栏

Program hi_parallel
  use omp_lib
  implicit none
  integer :: tid, mcpu

  !call omp_set_num_threads(8) !.. 设置线程数

  tid = omp_get_thread_num()  !.. 获取当前线程号...主线程号为0
  mcpu = omp_get_num_threads()  !.. 获取程序执行时的cpu(线程)数。由于此时没有进入并行域，所以mcpu=1
  write( *,'(1x,a)' ) 'before paralled......'
  write( *,'(1x,a,i2,a,i2,a)' ) 'hi from thread ', tid, ' in ', mcpu, 'CPUs!'

  write( *,'(1x,a)' ) 'during paralled......'
  !$omp parallel default(none) private( tid, mcpu )
  !.. 由于用来表示每个线程的线程号与cpu的个数的变量相同，所以用private子句将tid,mcpu声明为每个线程的私有变量
  tid = omp_get_thread_num()  
  mcpu = omp_get_num_threads()  
  write( *,'(1x,a,i2,a,i2,a)' ) 'hi from thread ', tid, ' in ', mcpu, 'CPUs!'
  !$omp end parallel

  write( *,'(1x,a)' ) 'after paralled......'
  write( *,'(1x,a,i2,a,i2,a)' ) 'hi from thread ', tid, ' in ', mcpu, 'CPUs!'

End program hi_parallel