Fortran使用OpenMP的并行计算