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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » abaqus调用fortran时，让fortran并行运算
71/1返回列表
查看: 2159  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 化工求调剂！ +37 RichLi_ 2026-04-06 37/1850 2026-04-13 10:25 by sophia_93
[考研] 271求调剂 +23 2261744733 2026-04-11 26/1300 2026-04-13 09:59 by szhize
[考研] 一志愿085502，267分求调剂 +17 再忙也要吃饭啊 2026-04-08 18/900 2026-04-13 09:57 by darren_yym
[考研] 考研英一数一338分 +6 长江大学东校区 2026-04-13 7/350 2026-04-13 09:40 by fqwang
[考研] 材料考研调剂 +28 云木达达 2026-04-11 30/1500 2026-04-13 08:51 by Sammy2
[考研] 一志愿0807 数一英一 313 有没有二轮调剂 +12 emokidd 2026-04-08 13/650 2026-04-13 08:32 by lhj2009
[考研] 一志愿中南大学 0855 机械 286 求调剂 +10 不会吃肉 2026-04-12 10/500 2026-04-12 22:51 by 零零二
[找工作] 山东高校教师考核超级无底线，员工过不下去啦 +4 qut2026 2026-04-09 9/450 2026-04-12 00:54 by qut2026
[考研] 343求调剂 +9 王国帅 2026-04-10 9/450 2026-04-11 20:31 by dongdian1
[考研] 368求调剂 +3 17385968172 2026-04-10 3/150 2026-04-10 20:12 by 电子奥德彪
[考研] 0858求调剂 5+5 Gky09300550， 2026-04-10 8/400 2026-04-10 19:13 by chemisry
[考研] 296求调剂 +6 汪！？！ 2026-04-08 6/300 2026-04-10 11:02 by mattzhming
[考研] 江苏大学 工科调剂 捡漏 +3 Evan_Liu 2026-04-09 5/250 2026-04-10 10:22 by Evan_Liu
[考博] 博士自荐 +7 可可小胖 2026-04-08 7/350 2026-04-10 08:28 by kimhero
[考研] 材料专硕初试分332一志愿西北工业大学， +12 故人?? 2026-04-09 12/600 2026-04-09 18:34 by Ccclqqq
[考研] 0703化学调剂 348分 +14 唉我超真没招了 2026-04-06 15/750 2026-04-08 19:16 by 我减肥1
[考研] 287求调剂 +6 Fnhc 2026-04-07 6/300 2026-04-08 10:05 by xingguangj
[考研] 调剂求助（生物与医药） +6 @6952 2026-04-06 6/300 2026-04-07 23:52 by lys0704
[考研] 0854求调剂 +9 亨氏番茄沙司 2026-04-06 10/500 2026-04-07 14:37 by shdgaomin
[考研] 327考研调剂推荐 +6 呜呜呜呜呢 2026-04-06 6/300 2026-04-06 21:39 by 啵啵啵0119
信息提示
关闭
请填处理意见
关闭