- 155 名前：デフォルトの名無しさん mailto:sage [2007/01/06(土) 20:59:33 ]
- >>152
real function distance(path)
common /rval/ rval
real rval(10)
integer path(*), i
distance = 1.0
do i=1,1000
if (path(i) .lt. 1) then
distance = int((distance + 0.5) * 100) / 100.0
return
endif
distance = distance * rval(path(i))
enddo
write(*,*) 'internal error'
stop
end
