| 查看: 213 | 回复: 0 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】一段fortran程序
|
|||
|
一段fortran程序 c X(X+Y)DXDY READ(*,*) A1,A2,B1,B2,N X=A1 Y=A2 H1=(B1-A1)/N H2=(B2-A2)/N F1=X*(x+y) DO 20,J=1,N DO 10,I=1,N S1=F1*H1 S=S1+S X=X+H1 F1=X*(x+y) 10 CONTINUE Y=Y+H2 S2=S*H2 SS=S2+SS X=A1 S1=0. S=0. F1=X*(x+y) 20 CONTINUE WRITE(*,*) SS END 我初学fortran，上面是一段双重积分x*(x+y)的程序，运行结果时错误，但我发现不出 错在哪里，忘哪位高手大哥给与指点！！ 谢了！ 或者，有关于双重积分的程序给我也可以！！ 谢了！！ [ Last edited by mainpro on 2007-10-15 at 22:00 ] |
回复此楼» 猜你喜欢
面上再次挂了，太难了，躺也躺不了，倦也卷不过，小学校之殇！
已经有20人回复
-
2026年国自然面上资助率
已经有18人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有10人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有7人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有10人回复
-
小木虫看见有人已经知道结果了
已经有20人回复
-
微信指数没变化，科研之友没阅读
已经有18人回复
-
基础研究怎么拉横向，学校到款任务越来越多，难以完成 拉横向，都有哪些途径啊
已经有8人回复
15