| 查看: 4095 | 回复: 4 | |||
| 【悬赏金币】回答本帖问题，作者10043216将赠送您 10 个金币 | |||
[求助]
abaqus焊接模拟子程序中 SUBROUTINE DFLUX(FLUX,……,JLTYP,是什么意思？已有1人参与
|
|||
|
SUBROUTINE DFLUX(FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP,……其中FLUX、SOL、JSTEP、是什么意思？为什么没有定义？这是abaqus中的？还是Fortran语言中的？初学，不是很懂求赐教！ 还有这是什么意思？if (JSTEP. eq. one) then，为什么子程序中没有Jstep呢？ 特附上子程序： parameter(one=1.d0) ！定义一个常数 DIMENSION COORDS(3),FLUX(2),TIME(2) ！ 定义数组，都是一维数组，元素分别为３，２，２个 CHARACTER*80 SNAME ！ 定义字符型，长度为８０ q=633*2.27*0.75 ！变量赋值 v=0.00227 d=v*TIME(2) ！ＴＩＭＥ(２)代表 第二个元素 x=COORDS(1) y=COORDS(2) z=COORDS(3) 讲ＣＯＯＲＤＳ的三个元素分别赋值于,x,y,z． x0=0 y0=0 z0=0 a=0.0019 b=0.0032 c=0.0028 PI=3.1415 ！一般情况下，我们很少这么用, pi=acos(-1.)这样用．  heat=6*sqrt(3.0)*q/(a*b*c*PI*sqrt(PI))！ sqrt是英文square root. shape=exp(-3*(x-x0)**2/b**2-3*(y-y0)**2/c**2-3*(z-z0-d)**2/a**2)！ exp， 指数． C JLTYP＝1，表示为体热源 JLTYP=1 if (JSTEP. eq. one) then 如果jstep等于0ne， 注意one是一个变量，在一开头就赋值了． C FLUX(1)=heat*shape-1100000 ！ Ｃ表示注解，这个一般在ＦＯＲＴＲＡＮ７７中常常用这个符号，现在人多用 ！来注解．或者说注释行． FLUX(1)=heat*shape endif RETURN ！ return，现在一般很少用了，fotran90以上版本很少用． END ！ end 是一个程序，无论是主程序还是子程序都需要结束的一个字符，相当于c语言中的花括号．  |
回复此楼» 收录本帖的淘贴专辑推荐
 焊接有限元分析 |
» 猜你喜欢
估计今年青基又没戏
已经有8人回复
-
267求调剂
已经有3人回复
-
聚氨酯丙烯酸酯预聚体合成
已经有6人回复
-
298求调剂
已经有7人回复
-
最近遇到这样一个问题
已经有6人回复
-
事业单位还是大学好？
已经有15人回复
-
没.赶.上.今.年.博.士.的.同.学.看.过.来.
已经有8人回复
-
申请24博士 材料/化工/环境
已经有3人回复
-
小孩7岁，上一年级，不自信，学习较差
已经有29人回复
-
投稿求助
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- abaqus要想使用subroutine功能，需不需要安装FORTRAN编译器，还是C++编译器就可以了
已经有3人回复
- Abaqus的子程序问题
已经有5人回复
- 请教ABAQUS子程序dflux的有关问题
已经有6人回复
2楼2014-04-07 23:25:41
3楼2014-04-08 12:59:33
4楼2016-03-30 16:57:26
5楼2017-03-26 13:51:12
20