| 查看: 2549 | 回复: 20 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
princeado金虫 (正式写手)
|
[求助]
大家帮我看一个fortran的程序，我总是计算不出正确的结果
|
|
|
最近刚学fortran，开始编小小程序试手，下面是我弄的一个程序，没有错误，但总是运行不出正确的结果，程序是想通过do循环对数组a进行赋值，用的是语句a(i)=jiecheng(i)，jiecheng是我自定义的函数，求每个数对应的阶乘。所有程序如下，哪位高手帮我看看问题在哪里。 program test01 implicit none integer :: i real :: a(5) real,external :: jiecheng do i=1,5 a(i)=jiecheng(i) end do write(*,*) a stop end function jiecheng(x) implicit none integer x real jiecheng integer :: ii=1 integer :: m=1 do ii=1,x m=m*ii end do jiecheng=m return stop end |
回复此楼» 猜你喜欢
今年的WR进展到哪一步了？
已经有8人回复
-
时间戳他又来了
已经有17人回复
-
系统今天又提示维护了，估计离放榜不远了
已经有9人回复
-
产物和副产物价值比较
已经有4人回复
-
这个自发加氧反应的机理是什么？
已经有7人回复
-
J-J-W不为人知的一面
已经有19人回复
-
没消息就是被刷了呗
已经有14人回复
-
微信指数没变化，科研之友没阅读
已经有8人回复
-
这种情况还有戏吗
已经有11人回复
-
同事接到电话了，我却没有
已经有4人回复
20楼2011-12-12 14:35:40
hhucy
实习版主 (著名写手)
DOE锅炉工
- 应助: 53 (初中生)
- 贵宾: 0.264
- 金币: 7775.6
- 散金: 1861
- 红花: 13
- 沙发: 7
- 帖子: 2588
- 在线: 1275.5小时
- 虫号: 1079650
- 注册: 2010-08-22
- 性别: GG
- 管辖: 能源
3楼2011-11-08 16:06:34
princeado
金虫 (正式写手)
- 应助: 4 (幼儿园)
- 金币: 2729.5
- 红花: 5
- 帖子: 874
- 在线: 868.6小时
- 虫号: 1031978
- 注册: 2010-05-30
- 性别: GG
- 专业: 水文、水资源
4楼2011-11-08 16:18:12
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
5楼2011-11-08 16:18:53