[問題] fortran95

[lubemyself (作自己)]

剛剛照著這本書第228頁的程式去打

可是一直顯示有一個error

我檢查了好久

可以請大大們幫我看看到底哪裡錯嗎？

program v123
 implicit none
 interface
  function random10(lbound,ubond)
  implicit none
  real::lbound,ubound
  real::random10(10)
  end function
 end interface
 real::a(10)
 CALL RANDOM_SEED()
 a=random10(1.0,10.0)
 write(*,"(10F6.2)")a
end
function random10(lbound,ubound)
implicit none
 real::lbound,ubound
 real::len
 real::random10(10)
 real t
 integer i
 len=ubound-lbound
 do i=1,10
  call random_number(t)
  random10(i)=lbound+len*t
 end do
 return
end

如果這個問題太蠢我會自刪

謝謝
> <

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 114.32.184.86
→ perturb:end do -> enddo
→ lubemyself:改了～可是還是一樣  ～可能不是這裡有問題
→ lubemyself:謝謝P大
→ perturb:ubond->ubound 你就不能貼一下錯誤信息?
推 Faramir:第四行 也就是樓上講的..
→ lubemyself:感謝大家～我發現了～我真是眼殘～謝謝！！
推 mjhsieh:end do 和 enddo 一樣吧 :)