应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » abaqus调用fortran时，让fortran并行运算
71/1返回列表
查看: 2110  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

spursspurs

新虫 (小有名气)

[求助] abaqus调用fortran时，让fortran并行运算 已有1人参与

各位专家帮忙啊，在使用abaqus调用intel fortran时，怎样才能让fortran程序openmp模块调用实现程序的并行？程序中已加入了openmp语句！！！
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2013-12-28 14:17:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fish.yfyh

铜虫 (小有名气)

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
spursspurs: 金币+2 2013-12-29 08:39:17
OpenMP很简单，用Intel Fortran的话，在编译选项中添加-openmp.
然后在代码里面通过set_omp_num_threads(nprocs)指定并行的线程数即可。
赞一下 回复此楼
2楼2013-12-28 20:20:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

spursspurs

新虫 (小有名气)
引用回帖:
2楼: Originally posted by fish.yfyh at 2013-12-28 20:20:53
OpenMP很简单，用Intel Fortran的话，在编译选项中添加-openmp.
然后在代码里面通过set_omp_num_threads(nprocs)指定并行的线程数即可。

非常感谢你的回答！我是用abaqus调用程序，也就是说直接调用子程序.for文件，fortran没有编译，所以不知怎么开启OPENMP啊？，代码里已经有并行语句了，求指导
赞一下 回复此楼
3楼2013-12-29 08:38:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

spursspurs

新虫 (小有名气)
引用回帖:
2楼: Originally posted by fish.yfyh at 2013-12-28 20:20:53
OpenMP很简单，用Intel Fortran的话，在编译选项中添加-openmp.
然后在代码里面通过set_omp_num_threads(nprocs)指定并行的线程数即可。

我感觉是不是在fortran或者abaqus的什么文件中设置下呢？可是不知道怎么弄？
赞一下 回复此楼
4楼2013-12-29 08:41:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fish.yfyh

铜虫 (小有名气)
引用回帖:
3楼: Originally posted by spursspurs at 2013-12-29 08:38:58
非常感谢你的回答！我是用abaqus调用程序，也就是说直接调用子程序.for文件，fortran没有编译，所以不知怎么开启OPENMP啊？，代码里已经有并行语句了，求指导...

在源代码部分的循环部分用:
!$omp parallel
!$omp do
....
!$omp end do
!$omp end parallel

然后在外面编译的时候, 加上-openmp的选项即可.
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

spursspurs
5楼2013-12-29 17:19:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

spursspurs

新虫 (小有名气)
送红花一朵
引用回帖:
5楼: Originally posted by fish.yfyh at 2013-12-29 17:19:08
在源代码部分的循环部分用:
!$omp parallel
!$omp do
....
!$omp end do
!$omp end parallel

然后在外面编译的时候, 加上-openmp的选项即可....

怎么加-openmp？麻烦详细的说下，因为用的是cmd命令窗口，abaqus调用fortran的语句为：abq6111 job=Job-1 int user=1.for 怎么加并行？
赞一下 回复此楼
6楼2013-12-29 17:24:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fish.yfyh

铜虫 (小有名气)
引用回帖:
6楼: Originally posted by spursspurs at 2013-12-29 17:24:19
怎么加-openmp？麻烦详细的说下，因为用的是cmd命令窗口，abaqus调用fortran的语句为：abq6111 job=Job-1 int user=1.for 怎么加并行？...

abq6111 job=Job-1 int user=1.for
这是调用fortran, 不是吧。看不出调用的什么子程序，以及子程序的形参实参也没有啊？

好吧，也许我没用过abaqus. 那你去找到编译的诸如Makefile的文件. 里面的诸如FFLAG之类的选项添加即可.
赞一下 回复此楼
7楼2013-12-29 21:10:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 spursspurs 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 3/150 2026-02-08 03:05 by vs90ilomwc
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 4/200 2026-02-08 02:45 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 3/150 2026-02-08 02:32 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:27 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:25 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:12 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 02:07 by vs90ilomwc
[教师之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 02:05 by vs90ilomwc
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:45 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:32 by vs90ilomwc
[教师之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:26 by vs90ilomwc
[教师之家] 有院领导为了换新车，用横向课题经费买了俩车 +7 瞬息宇宙 2026-02-04 7/350 2026-02-07 21:47 by tfang
[有机交流] 酰胺脱乙酰基 10+5 chibby 2026-02-03 12/600 2026-02-07 19:29 by 江东闲人
[基金申请] 同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗 +4 hitsdu 2026-02-06 4/200 2026-02-07 13:07 by jurkat.1640
[基金申请] 有时候真觉得大城市人没有县城人甚至个体户幸福 +9 苏东坡二世 2026-02-04 10/500 2026-02-07 12:37 by 小毛球
[考博] 天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人） +4 a793625982 2026-02-05 5/250 2026-02-07 10:57 by a793625982
[公派出国] CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生｜MSCA经费充足、排名优 +4 雨念 2026-02-01 6/300 2026-02-06 23:32 by MelissaPon
[基金申请] 面上项目申报 +3 Tide man 2026-02-01 3/150 2026-02-05 22:56 by god_tian
[硕博家园] 博士延得我，科研能力直往上蹿 +7 偏振片 2026-02-02 7/350 2026-02-04 17:36 by 陈氏帝国
[教师之家] 遇见不省心的家人很难过 +18 otani 2026-02-03 22/1100 2026-02-04 11:06 by tangmnt
信息提示
关闭
请填处理意见
关闭