[問題] 迴圈問題(數值無法變換?)
再次麻煩大大幫我看看我的程式到底哪裡有問題
裡面的小迴圈已將最小的i值寫出
但是做外面的迴圈時裡面的迴圈坐的數值卻是重複做同樣的數據
如何讓裡面的迴圈做不同的數據?
請幫我看看哪裡有問題
感謝
program work
implicit none
integer i,j,k(100)
REAL r(10),sum,sum1,mean
CALL init_random_seed( )
CALL RANDOM_NUMBER(r)
write(*,*)r
sum1=0.0
do j=1,10
i=1
sum=0.0
do while (sum .LE. 1)
sum=sum+r(i)
i=i+1
end do
write(*,*)i-1
write(*,*)sum
k(j)=i-1
sum1=sum1+k(j)
end do
write(*,*)sum1
end program work
SUBROUTINE init_random_seed()
INTEGER :: i, n, clock
INTEGER, DIMENSION(:), ALLOCATABLE :: seed
CALL RANDOM_SEED(size = n)
ALLOCATE(seed(n))
CALL SYSTEM_CLOCK(COUNT=clock)
seed = clock + 37 * (/ (i - 1, i = 1, n) /)
CALL RANDOM_SEED(PUT = seed)
DEALLOCATE(seed)
END SUBROUTINE
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.131.96.4
推
03/09 10:48, , 1F
03/09 10:48, 1F
→
03/09 10:49, , 2F
03/09 10:49, 2F