| 查看: 4450 | 回复: 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语言中的花括号．  |
回复此楼» 收录本帖的淘帖专辑推荐
 焊接有限元分析 |
» 猜你喜欢
职称评审没过，求安慰
已经有49人回复
-
26申博自荐
已经有3人回复
-
A期刊撤稿
已经有4人回复
-
垃圾破二本职称评审标准
已经有17人回复
-
投稿Elsevier的Neoplasia杂志，到最后选publishing options时页面空白，不能完成投稿
已经有22人回复
-
EST投稿状态问题
已经有7人回复
-
毕业后当辅导员了，天天各种学生超烦
已经有4人回复
-
三无产品还有机会吗
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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