看板Programming
标 题Re: [问题] 新手请大家帮忙debug
发信站HISDT 风禹科技验证有限公司 (Sun Oct 24 11:41:59 2010)
转信站ptt!news.ntu!ctu-gate!news.nctu!usenet.stanford.edu!news.glorb.com!new
==> 本文由 "理论型嘴炮 <[email protected]>"
> 於 news:52KkBj%2495l%40ptt.cc 发表
> 是用fortran写的
> program calculate
> implicit none
> real x(999)
> integer counter,sum
> integer, parameter :: limit=46
> open(8,file='data.txt',status='old')
> sum=0
> do counter=1, limit,1
> read(8,'1x,f4.1',err=99) x(counter)
在这里先加上：
Write(*,*) counter, x(counter)
确认读进来的是正确的
> sum =sum+x(counter)
> 99 close(1)
open(8, ...) 为啥 close 会是 1 ？close 为啥在 end do 之前？
> end do
> write(*,*) sum/46
> end
>
> compile之後没有bug,可是读出来的东西是0
> file和compiler都放在桌面上
> 请大家帮帮忙,谢啦!!
>
--
风禹科技验证有限公司 ASP.NET Web News Reader 0.2.9 UTF-8 Beta
网站地图
http://tlcheng.twbbs.org/wwwmap.htm
流域防洪/区域水资源/徐昇网/玫瑰图/语音通讯 文章与程式
Basic/Fortran/Windows API/.Net/辅助说明档 原始码、文章与讨论
微软程式设计、系统管理使用新技术论坛讨论区，网友回覆後即时简讯、电子邮件通知：
MSDN:
http://social.msdn.microsoft.com/Forums/zh-TW/categories/
TechNet:
http://social.technet.microsoft.com/Forums/zh-TW/categories/
--
ASPNET News Reader
http://tlcheng.twbbs.org/News/Reader.aspx
RSS 2.0
http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.language