[問題] fortran95
剛剛照著這本書第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
→
02/10 16:26, , 1F
02/10 16:26, 1F
→
02/10 16:57, , 2F
02/10 16:57, 2F
→
02/10 16:58, , 3F
02/10 16:58, 3F
→
02/10 17:41, , 4F
02/10 17:41, 4F
推
02/10 19:42, , 5F
02/10 19:42, 5F
→
02/10 21:47, , 6F
02/10 21:47, 6F
推
02/11 11:54, , 7F
02/11 11:54, 7F
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
