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

[h888512 (理論型嘴砲)]

是用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:請問可以說仔細一點嗎,感謝~
※ h888512:轉錄至看板 Fortran                                      10/13 16:13
→ h888512:de出bug了!!感謝