fortran+omp使用

环境配置：这里使用的是vs2019，项目(最后一行)——属性——设置以下界面，注意区分release和debug，用哪个配哪个，这里配置debug，release同理

1，parallel的使用，打印helloworld

parallel指令用来创建并行域

代码如下:

program test1
    use omp_lib
    !$omp parallel !并行域
        print*,'Hello World!'
    !$omp end parallel !结束
    pause
end program

结果如下:

打印两个hello world4,说明程序默认线程数为2，可通过call OMP_SET_NUM_THREADS()控制线程数，不同之处如下:

可以看到打印了4个helloworld

omp_get_thread_num()  返回当前的进程编号，从0开始

2,parallel do的使用，与C语言的parallel for用法类似，写法如下：

可以自行调试，这里设置进程数为2，循环次数为6，每个进程循环3次即可，可再参考下面程序

parallel do的作用是加速do循环，这是omp主要用法，注意只能从并行域开始必须在do前，结束在end do 后(前后均不能再加其他程序)，以下情况会报错。