找回密码
 注册
Simdroid-非首页
查看: 157|回复: 17

[子程序] 同时调用二个子程序

[复制链接]
发表于 2016-11-27 14:17:21 | 显示全部楼层 |阅读模式 来自 青海西宁
悬赏26仿真币未解决
本帖最后由 17809711421 于 2016-12-2 11:31 编辑

一个面热源,一个体热源      怎样同时在abaqus运行?

发表于 2016-11-29 21:21:30 | 显示全部楼层 来自 山东淄博
Simdroid开发平台
可以的的话,写在一个程序文件中
回复

使用道具 举报

 楼主| 发表于 2016-11-30 16:01:32 | 显示全部楼层 来自 青海西宁
285091779 发表于 2016-11-29 21:21
可以的的话,写在一个程序文件中

你好  很感谢回复   我把它们直接先后放在一起,不运行。。。 请问怎磨回事   求指导
回复

使用道具 举报

 楼主| 发表于 2016-11-30 16:02:14 | 显示全部楼层 来自 青海西宁
285091779 发表于 2016-11-29 21:21
可以的的话,写在一个程序文件中

求指导  最紧急死了   找不到资源学习  求指导
回复

使用道具 举报

发表于 2016-11-30 19:06:02 | 显示全部楼层 来自 辽宁沈阳
本帖最后由 睡在书籍 于 2016-12-3 12:09 编辑

abaqus是不能同时调用两个子程序的,例如两个材料子程序要合并在一起,但不是简单的放在一起,有格式要求的,要是两个不同类型的子程序例如材料和单元的就不懂了。图片是帮助文档的说明。例如把subroutine   umat_aaa(........)和subroutine umat_bbbb(......)的代码简单的粘贴到一起之后,需要在开头添加
subroutine        umat(。。。。)
1.。。。
2.。。。
3.。。。。
4.。。。。。
if(。。。。)then  
call umat_aaa(....)
1....
2....
3......
4......
else  if (......) then  
call  umat_bbbb(....)  
1.....
2......
3.....
4.....
(对比图片看)
另外,对于材料子程序只能以subroutine  umat开头,多种合并就要想像例子那样用subroutine  umat_aaa那样命名不同部分的材料的代码名。
希望能够看懂

--------------更新分割线------------
此处的1.。。。2.。。。。3.。。。。4.。。。。是各部分的材料程序中include‘aba_param.inc'以上的四行固定代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

×

评分

1

查看全部评分

回复

使用道具 举报

发表于 2016-11-30 20:30:54 | 显示全部楼层 来自 中国
你这问题描述的不清楚,大家没办法帮你。两个子程序是两个同类型的子程序还是不同类型的子程序?如果是同类型的子程序,往往根据不同的调用对象进行区分,例如两个UMAT子程序,可以根据取的材料名字进行区分,分别调用不同的子程序。如果两个子程序是不同类型的,直接放到一个fortran文件即可。当然,你说的两个子程序不能同时调用还有可能是你在CAE操作里面没有选择采用用户自定义子程序等。
建议你把问题重新描述清楚,这样大家才能够更好的给你建议。

评分

1

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2016-12-1 16:09:00 | 显示全部楼层 来自 青海西宁
睡在书籍 发表于 2016-11-30 19:06
abaqus是不能同时调用两个子程序的,例如两个材料子程序要合并在一起,但不是简单的放在一起,有格式要求的 ...

很感谢你的回复      具体是 一个面热源  一个体热源   怎样同时在abaqus里运行?
回复

使用道具 举报

 楼主| 发表于 2016-12-1 16:10:39 | 显示全部楼层 来自 青海西宁
changbing 发表于 2016-11-30 20:30
你这问题描述的不清楚,大家没办法帮你。两个子程序是两个同类型的子程序还是不同类型的子程序?如果是同类 ...

很感谢你的回复      具体是 一个面热源  一个体热源   怎样同时在abaqus里运行?
回复

使用道具 举报

 楼主| 发表于 2016-12-1 16:22:32 | 显示全部楼层 来自 青海西宁
17809711421 发表于 2016-12-1 16:10
很感谢你的回复      具体是 一个面热源  一个体热源   怎样同时在abaqus里运行? ...

求大神解答  
回复

使用道具 举报

 楼主| 发表于 2016-12-1 16:23:52 | 显示全部楼层 来自 青海西宁
changbing 发表于 2016-11-30 20:30
你这问题描述的不清楚,大家没办法帮你。两个子程序是两个同类型的子程序还是不同类型的子程序?如果是同类 ...

求大神解答    解答明白    立马所有金币送上
回复

使用道具 举报

 楼主| 发表于 2016-12-1 16:31:10 | 显示全部楼层 来自 青海西宁
睡在书籍 发表于 2016-11-30 19:06
abaqus是不能同时调用两个子程序的,例如两个材料子程序要合并在一起,但不是简单的放在一起,有格式要求的 ...

user subroutine
回复

使用道具 举报

 楼主| 发表于 2016-12-1 16:32:19 | 显示全部楼层 来自 青海西宁
睡在书籍 发表于 2016-11-30 19:06
abaqus是不能同时调用两个子程序的,例如两个材料子程序要合并在一起,但不是简单的放在一起,有格式要求的 ...

求大神解答    解答明白    立马所有金币送上
回复

使用道具 举报

 楼主| 发表于 2016-12-2 11:27:23 | 显示全部楼层 来自 青海西宁
changbing 发表于 2016-11-30 20:30
你这问题描述的不清楚,大家没办法帮你。两个子程序是两个同类型的子程序还是不同类型的子程序?如果是同类 ...

求求 解答        送上金币
回复

使用道具 举报

发表于 2016-12-3 11:50:18 | 显示全部楼层 来自 辽宁沈阳
本帖最后由 睡在书籍 于 2016-12-3 12:38 编辑
17809711421 发表于 2016-12-2 11:27
求求 解答        送上金币

不好意思啊,我前两天没上论坛,我用的主要是材料子程序,热源的没用过,你能把子程序的名字写出来吗,另外,注意子程序的名字,同一类型的应该是要区分名字的,我看看帮助文档哈我认为两个子程序的合并应该是与材料子程序的合并相同的,图片是帮助文档里的全部内容,
试试这样:
SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,     1 JLTYP,TEMP,PRESS,SNAME)C      INCLUDE 'ABA_PARAM.INC'C      DIMENSION FLUX(2), TIME(2), COORDS(3)      CHARACTER*80 SNAMEIF (CMNAME(1:2).EQ.'AB')THENCALL DFLUX_AB(........)
ELSE IF(CMNAME(1:2).EQ.'CD')THEN
CALL  DFLUX_CD(..................)
我认为你应该把图片里的内容完全看懂

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

×
回复

使用道具 举报

发表于 2016-12-5 10:49:25 | 显示全部楼层 来自 江苏
总的思想就是用一个选择语句来区分两个子程序,在CAE里定义材料名称时,需要注意名称的首字母,子程序用材料名进行自动选择
回复

使用道具 举报

 楼主| 发表于 2016-12-6 13:36:25 | 显示全部楼层 来自 青海西宁
busitianya 发表于 2016-12-5 10:49
总的思想就是用一个选择语句来区分两个子程序,在CAE里定义材料名称时,需要注意名称的首字母,子程序用材 ...

程序里判断材料对吧
回复

使用道具 举报

 楼主| 发表于 2016-12-6 13:41:57 | 显示全部楼层 来自 青海西宁
睡在书籍 发表于 2016-12-3 11:50
不好意思啊,我前两天没上论坛,我用的主要是材料子程序,热源的没用过,你能把子程序的名字写出来吗,另 ...

多谢耐心讲解,你是做材料umat的,以后做到材料再具体沟通。图片是help文件的,我也看到了好多。。。但感觉和自己做的关系好远    看懂help,好多精力。。。好难学。。我以为大神是有别的途径  很快很轻松就学会了。。  看来也是一点点血help。。。。 难死了了,。。
回复

使用道具 举报

发表于 2016-12-6 15:16:34 | 显示全部楼层 来自 甘肃兰州
写到一个循环里面,同时加载
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-5-14 21:08 , Processed in 0.048765 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表