| 查看: 4658 | 回复: 4 | |||
[求助]
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语言中的花括号．  |
回复此楼» 收录本帖的淘帖专辑推荐
 焊接有限元分析 |
» 猜你喜欢
云南大学材料与能源学院解琳课题组钙钛矿博士招生
已经有7人回复
-
西安交大新媒学院副院长用撤稿论文结题
已经有5人回复
-
论文撤稿了
已经有5人回复
-
某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！
已经有5人回复
-
26/27申博自荐
已经有9人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有7人回复
-
河北省自然科学基金
已经有7人回复
-
揭秘青基评审内幕：几个A才能顺利中标
已经有4人回复
-
青B发送上会通知了吗
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- abaqus要想使用subroutine功能，需不需要安装FORTRAN编译器，还是C++编译器就可以了
已经有3人回复
- Abaqus的子程序问题
已经有5人回复
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
10