[問題] 新手請大家幫忙debug

[h888512 (理論型嘴砲)]

※ [本文轉錄自 Programming 看板 #1CjM0zmB ]

作者: h888512 (理論型嘴砲) 看板: Programming
標題: [問題] 新手請大家幫忙debug
時間: Wed Oct 13 15:31:04 2010

是用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)
sum =sum+x(counter)
99 close(1)
end do

write(*,*) sum/46
end


compile之後沒有bug,可是讀出來的東西是0

file和compiler都放在桌面上

請大家幫幫忙,謝啦!!

--
                                             ◥▁▁▁▁ ◢                    
                                             ◤ ██ ／-                      
    不..不要誤會，我不是針對你..              □–□-◢◤                     
       我是說在座的各位，都是垃圾....         ▼ㄑ     ◢                     
                                               ▼一  ／◣                     
http://www.youtube.com/watch?v=HWWMvpIhHNY  ◢ /◣─ ◤ /█◣ ψdajidali      

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.112.187.84
→ Cypresslin:你的sum要拿來存放x，他們類別應相同
→ Cypresslin:另外PTT有Fortran版喔！
→ h888512:請問可以說仔細一點嗎,感謝~
--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.112.187.84
推 youlieme:sum應該宣告為real 不然小數會捨去 若x都小於1就都會是0
→ h888512:改完了 不過結果一樣耶...
推 youlieme:你在迴圈裡把 x(counter) write出來看一下有沒有問題
推 meteorology:46.
→ gilocustom:讀取的格式字串缺括號。
→ h888512:天阿...我竟然犯這種錯誤...謝謝樓上