1、在菜单栏中的的“项目”或者“调试”亦或进行在“解决方案”中右键选择“属性”，打开设置面板；
2、打开“Fortran”下的“Language”，在“Process OpenMP Directives”选择“Generate Parallel Code（Qopenmp）”，点击确定；
3、在程序中，调用“参与计算的线程数”库函数，如：!$ call omp_set_num_threads(4)!$OMP PAR帆歌达缒ALLELprint*, "openMP"!$OMP End PARALLEL