openmp常用指令集（Fortran版）(1)

前言

最近一直在学习关于openmp的用法，在网上查到的资料都是基于C++的用法，现在总结一下关于openmp在Fortran上用法，共同学习吧

关于设置计算机

（1）在vs2008中新建fortran控制台程序，选择项目(Project) -> 属性(property) -> Fortran -> 语言(Language)，在 Process OpenMP Directives 选项中选择 Generate Parallel Code (/Qopenmp)，点击确定以打开 OpenMP 支持。
（2）设置环境变量：我的电脑 -> 属性 -> 高级 -> 环境变量，在系统变量栏中新建一个OMP_NUM_THREADS 变量，值设为 4，即为程序执行的线程数（线程数一般设为处理器核数）。
运行如下代码：

program test
!$OMP PARALLEL
print*, 'ok!'
!$OMP END PARALLEL
End program

运行结果是：
ok!
ok!
ok!
ok!

使用openmp的限制条件

(1)!