Fortran90/95 + OpenMP 的代码我能看懂而已，真用起来我只会 C + OpenMP
你的这个程序似乎混合了F77和F95两种不同的Fortran语法格式，不知道会不会有问题。
以我看过的F95 + OpenMP程序来提几点建议，你试试看：
include 'omp_lib.h' 换成 use omp_lib
C$OMP PARALLEL PRIVATE(B) 开头的 C$OMP 换成 F95格式的 !$OMP
然后紧接着下一行开头的1是多余的，那是F77的习惯。
最后pause语句之前加一行： !$OMP end parallel
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024