| 查看: 4126 | 回复: 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语言中的花括号．  |
回复此楼» 收录本帖的淘帖专辑推荐
 焊接有限元分析 |
» 猜你喜欢
论文投稿
已经有5人回复
-
一篇论文初审17个月了
已经有10人回复
-
请教各位，产物溶解性很差且对水和空气敏感怎么打核磁
已经有7人回复
-
帮帮我
已经有5人回复
-
PCCP投稿
已经有4人回复
-
感觉在瑞典不适合做科研
已经有14人回复
-
现博士在读，硕士学校的硕导又让干活
已经有7人回复
-
应用设计类论文投稿求助
已经有8人回复
-
有感于请专家指导申报书
已经有14人回复
-
文章改了几轮，该投稿了，选了几篇杂志发给导师
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- abaqus要想使用subroutine功能，需不需要安装FORTRAN编译器，还是C++编译器就可以了
已经有3人回复
- Abaqus的子程序问题
已经有5人回复
- 请教ABAQUS子程序dflux的有关问题
已经有6人回复
2楼2014-04-07 23:25:41
10
