| 查看: 4791 | 回复: 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语言中的花括号．  |
回复此楼» 收录本帖的淘帖专辑推荐
 焊接有限元分析 |
» 猜你喜欢
让我中一个面上吧！
已经有10人回复
-
科研孤儿太难了
已经有14人回复
-
言之凿凿，明天官网会通知放榜？
已经有17人回复
-
时间戳又变了
已经有17人回复
-
今天系统多次维护，明天很可能放榜！
已经有11人回复
-
时间戳变了，能看出什么问题？
已经有23人回复
-
只有每年这种时候来逛逛小木虫
已经有22人回复
-
放榜前的不淡定
已经有12人回复
-
重要消息，中午系统在维护
已经有12人回复
-
今天基金会出结果吗？20260819
已经有15人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
40