OpenMP 编译器

最新推荐文章于 2023-04-03 19:20:50 发布

lafanda217

最新推荐文章于 2023-04-03 19:20:50 发布

阅读量574

点赞数

分类专栏： Fortran 文章标签：编译器 subroutine integer character parallel interface

本文链接：https://blog.csdn.net/lafanda217/article/details/6259346

版权

这是一个使用OpenMP并行化的Fortran程序，用于测试名为`select_sort`的子程序。程序首先定义了一个包含180个元素的数组，然后调用`select_sort`进行排序。`select_sort`子程序接受一个数组、数组大小和排序方向作为参数，对数组进行升序或降序排序。程序通过`!$OMP PARALLEL DO`指令实现并行化，对子程序进行1000000次调用，并计算执行时间。

摘要由CSDN通过智能技术生成

1
2         PROGRAM test_select_sort
3 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4 ! Purpose: To test the subroutine or function select_sort                       !
5 ! Record of revisions:                                                          !
6 !   Date       Programer           Description of changes                       !
7 ! ========== ==========      =================================                 !
8 ! 2011.3.18     Joshua         Original                                         !
9 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
10         !Data dictionary
11         INTEGER,PARAMETER::N=180