! 100 個の乱数の表示 program random100 implicit none real :: x ! 乱数受け取り用の変数の宣言 integer :: i do i = 1, 100 call random_number( x ) ! 1 つの乱数の生成 write( 6, * ) i, x ! 乱数を画面に出力 end do end program random100