dimension T(i),Y(i) T(i)に乱数が入ってて、
do j=1,25　　箱25個
Y(j)=0 カウント数の箱の初期化
end do

do i=1,300
if(T(i).gt.0.and.T(i).lt.25)
Y(1)=Y(1)+1
else if(T(i).gt.25.and.T(i).lt.50)
Y(2)=Y(2)+1
・・・・・・・・・
・・・・・・・・・
else
Y(25)=Y(25)+1
end if
end do

do ii=1,25
write(*,*)Y(ii)
end do

これじゃY(1)にカウントが１５０とかいっちゃって、
乱数が一様に分布されなくなっちゃいます。
一様になるはずなんです。
どこが違いますか？