| 查看: 891 | 回复: 1 | ||
congzhimin铁虫 (初入文坛)
|
[求助]
求助Fortran编写！
|
|
最近在做ABAQUS瞬时模拟，运用到子程序。而，之前一直没接触F，自己照着参考书上写，子程序调用时，程序报错。 （其实，我想要的结果很简单，就是每个分析步t，调用Q=239.9-171.1*COS(t*w)-296.8*SIN(t*w)-33.14*COS(2*t*w)+100.1*SIN(2*t*w)-7.849*COS(3*t*w)-15.09*SIN(3*t*w)+21.27*COS(4*t*w)+1.48*SIN(4*t*w)-0.3852*COS(5*t*w)-16.34*SIN(5*t*w)-13.26*COS(6*t*w)-32.09*SIN(6*t*w)-33.43*COS(7*t*w)+15.01*SIN(7*t*w)+5.696*COS(8*t*w)+14.14*SIN(8*t*w)）其中，w为定量，t为时间。 程序如下： ! 定义随时间变化的热流（第二类边界条件） SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS, 1 JLTYP,TEMP,PRESS,SNAME) C INCLUDE 'ABA_PARAM.INC' C DIMENSION FLUX(2), TIME(2), COORDS(3) CHARACTER*80 SNAME C user coding to define FLUX(1) and FLUX(2) FLUX(2)=0 as=0.90 !!路面的太阳辐射吸收率 A1=-171.1*COS(TIME(1)*0.353) B1=-296.8*SIN(TIME(1)*0.353) A2=-33.14*COS(TIME(1)*2*0.353) B2=100.1*SIN(TIME(1)*2*0.353) A3=-7.849*COS(TIME(1)*3*0.353) B3=-15.09*SIN(TIME(1)*3*0.353) A4=21.27*COS(TIME(1)*4*0.353) B4=1.48*SIN(TIME(1)*4*0.353) A5=-0.3852*COS(TIME(1)*5*0.353) B5=-16.34*SIN(TIME(1)*5*0.353) A6=-13.26*COS(TIME(1)*6*0.353) B6=-32.09*SIN(TIME(1)*6*0.353) A7=-33.43*COS(TIME(1)*7*0.353) B7=15.01*SIN(TIME(1)*7*0.353) A8=5.696*COS(TIME(1)*8*0.353) B8=14.14*SIN(TIME(1)*8*0.353) q=239.9+A1+B1+A2+B2+A3+B3+A4+B4+A5+B5+A6+B6+A7+B7+A8+B8 FLUX(1)=as*q !进入路面的热流量 RETURN END 为什么在ABAQUS调用时程序会报错呢？求指导，谢谢！ |
回复此楼» 猜你喜欢
面上意见出来了
已经有8人回复
-
导师吐槽：我怎么摊上了这么个极品研究生！
已经有9人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有5人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有7人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有4人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有10人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有9人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- fortran编译中$符号的使用
已经有4人回复
- 求一个简单的读写文件的小程序。。。
已经有4人回复
- fortran程序在SSH计算中心上运行的问题！
已经有13人回复
- 亲， 帮看看我这个fortran程序的错误
已经有4人回复
- 在苹果操作系统下,fortran 用什么编译系统?
已经有12人回复
- 关于应用fortran编写高斯消去法程序来求解方程组的问题
已经有5人回复
- Fortran allocate 程序段编译出错求助。
已经有5人回复
- 求助：intel visual fortran的格式问题
已经有14人回复
- fortran读写问题
已经有6人回复
- fortran文件操作，接着写不覆盖
已经有3人回复
- 大家都用什么fortran编辑器，推荐一下，最好是能加亮或修改语句颜色的
已经有15人回复
- 在linux下编FORTRAN程序
已经有14人回复
- 我编的Simpson积分法fortran程序给不出结果，大侠们看看哪里出了问题？
已经有4人回复
- 如何用fortran编写高斯白噪声程序
已经有6人回复
- 写了一个fortran90的小程序，编译通不过，请大侠帮忙
已经有59人回复
- 【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
- 【求助】FORTRAN写文件时每行开头都多了一个空格？
已经有6人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
- 【转帖】intel Fortran编译器的一个“危险”优化
已经有9人回复
- 【求助】这样的公式，在fortran里该怎么写了，谢谢【求助成功】
已经有4人回复
2楼2013-12-29 21:32:01
投票:
30