作者lubemyself (作自己)
看板Fortran
标题[问题] fortran95
时间Thu Feb 10 16:13:24 2011
刚刚照着这本书第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
1F：→ perturb:end do -> enddo 02/10 16:26
2F：→ lubemyself:改了～可是还是一样 ～可能不是这里有问题 02/10 16:57
3F：→ lubemyself:谢谢P大 02/10 16:58
4F：→ perturb:ubond->ubound 你就不能贴一下错误信息? 02/10 17:41
5F：推 Faramir:第四行 也就是楼上讲的.. 02/10 19:42
6F：→ lubemyself:感谢大家～我发现了～我真是眼残～谢谢！！ 02/10 21:47
7F：推 mjhsieh:end do 和 enddo 一样吧 :) 02/11 11:54